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CentreSoft 


PRESENT 



With over four years experience of providing practical software solutions for business and home applications, Gemini have put together a 
selected range of famous titles for the Commodore 64 and 128 in TWO special packs, at VERY SPECIAL prices. These super value packs 
contain all the serious application software you 're ever likely to need for your CBM, from word processing and database management to 
a complete professional business accounting system. Gemini's OFFICE MATE’and ‘OFFICE MASTER'are here now - 
put that computer to work! 





• Word Processor 

• Database 

• Mailing List 


• Home Accounts 

* Extensive 
Documentation 


• Database 
• Cash Book 


• Mailist • Word Processor 
• Final Accounts • VAT File 


• Stock Control 
• Full Documentation 


Word Processor 

A fully-featured word processor program with text formatting - 
right justification - adjustable page length - text centering - 
output of all or part of text to printer - selective saving - file 
concatenation - block move - block delete - reverse print - 
graphics print - double width print - sorting - left and right 
margin selectable - word count - search and replace. 


Mailing List 

This program will enable you to keep a record of names and 
addresses and then print, examine, sort and find them, all with 
special selection techniques. Featuring the famous Gemini 
‘search-key’ system, you have the option of creating your own 
dedicated coding routines for each name on the file. 

For example, on most mail systems you are only given the 
standard headings such as name, street, town, county, etc. 
but with our system, you could for example find all companies 
listed that have a turnover in excess of a certain figure, or all 
subscribers who are behind with their subscriptions, or all 
people eligible for a Christmas card this year! A full range of 
utilities is callable from the menu including, ofcourse, label 
printing. 


Step up to OFFICE MATE and save money! Usual price individually £79.80 


Database 

Superior file management system with features found only 
with packages costing much, much more. Completely user- 
definable data entry format - colours definable - advanced 
mathematics using built-in machine code expression 
evaluator - fast sort on numeric and string fields - extensive 
searching with ‘wild card’ capability - user-definable data 
summaries - simple on-screen editing. A really POWERFUL 
database! 


Home Accounts 




Designed as a complete home accounting package, this 
program allows the user to set up and maintain a budget for 
items of household expenditure and compare actual with 
budget .either numerically, or with the aid of chart graphics. 
A complete bank account routine is included, together with 
standard expenditure categories which may be changed to 
suit. 


Database, Mailist and Word Processor as ‘Office Mate’ PLUS: 
Cash Book / Final Accounts /VAT File. 

Gemini’s legendary cash book system for the CBM is a complete ‘stand-alone ’ accounting 
software package, already in extensive use by both accountants and their clients. 


OFFICE MATE £12 Cassette 
or 1541 Disk £15 


General System Overview 

The Gemini cash book package for the Commodore 64/128 
microcomputer is designed for a hardware system 
consisting of: 

1. Commodore 64/128 microcomputer. 

2. 80 column printer. 

3. Cassette or disk data storage. 

Please note that running the program on disk will not change 
the way that the program works, but you will have the benefit 
of far greater speed and reliability for the loading and saving of 
files that a disk system provides. 

There is a total of 199 nominal accounts, a large number of 
which may be defined by the user. You may have up to four 
cash control accounts, six bank control accounts, one sales 
ledger and one purchase ledger control account. 

The program will store a data file consisting of : 

1. The account titles. 

2. The current cumulative balance on each account 
(debit or credit). 

3. The net movement on each account for every month of 
the year. 


4. VAT net sales and net payments figures, which are 
automatically created and maintained by the program. 

This same data file is used by the FINAL ACCOUNTS 

program. The ‘VAT FILE’ which accompanies this package is 

designed primarily for those users on the Retailers special 

VAT schemes. 

The main features of the CASH BOOK program are as follows: 

1. Double entry routines for transactions through the 
cash/bank accounts and sales/purchase ledger control 
accounts. 

2. Journal facility for the initial set up of accounts, or for 
adjustments to any of the accounts. 

3. The facility to produce the following screened or printed 
reports: 

(a) Listing of all the nominal account titles. 

(b) Monthly transaction summaries. 

(c) A trial balance whenever required. 

(d) Screen VAT memo account balances (sales/net 
purchases, and VAT accounts). 

(e) A batch printing facility which provides details of all the 
transactions entered in the current run of the program. 


4. The facility to extract regular management information 
such as cash/bank balances, debtors and creditors, sales, 
overheads, etc. 

5. The program interfaces with the Gemini FINAL - 
ACCOUNTS program to enable Trading and Profit and 
Loss accounts and Balance Sheet to be produced 
whenever required. Comparative or budget figures can be 
shown alongside the actual figures using this program. 

6. Screen prompts throughout the program to facilitate ease 
of use. 

7. Storage of VAT information to assist in the preparation of 
periodic VAT returns. 

8. Error trapping routines to minimise input errors. 

9. The facility to handle the financial transactions of sole 
traders, partnerships, limited companies, clubs, etc. 

Users registered for VAT are reminded that it is a statutory 
requirement to inform their local VAT office when they change 
their accounting records on to a new computerised accounting 
system. 


OFFICE 

MASTER 

£25 

Cassette 
or 1541 Disk 


Dealers please note that ‘Office Mate’ and ‘Office Master’ 
now available also on BBC, Electron, and Spectrum. 



Sole distributors to the trade: 

Centre 5 oft Ltd. Tei. 021-359-3020 


GEmiru 


Gemini Marketing Limited, Gemini House', 
Dinan Way Trading Estate, Exmouth, EX8 4RS. 


Please send me_CBM 64/128 Office Mate’ packs @ £12 (Disk £15) 

Please send me_CBM 64/128 ‘Office Master’ packs @ £25 

Cassette / Disk (please delete as necessary) 



Cheque / P.O.s enclosed to value £ 
or please debit my 
Access/Amex No_ 

Name:_ 

Address:_ 

Signature:_ 


24 HOUR CREDIT CARD 
HOT LINE 

(0395) 265165 (4 lines) 


E3 

2 


13 


I_ 


_Trade and overseas enquiries welcome_ 
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THE PROFESSIONAL WORD PROCESSOR 


The software scene this month is as 
crowded and diverse as ever. 

Plunging straight in at the deep end 
with the serious stuff we have four new 
productivity programs from Ariolasoft, all 
brought in from across the Atlantic. 

PaperClip, HomePak and The 
Consultant are all from the Canadian 
software house, Batteries Included. 

PaperClip is a word processor and it's a 
former number one piece of software in 
the States. Ariolasoft describes it as 
professional and comprehensive and it 
features full screen editing. It's available 
on disk and side two contains an 
enhanced 028 version. 

HomePak is a three module package 
and includes: HomeText a word 
processor; HomeFind, a data manager; 
and HomeTerm a telecommunications 
program which communicates with 
databases and other computers. 

The Consultant is a database 
management system designed to organise, 
sort and retrieve records, find exact items 
and execute a variety of search and 
analysis procedures. 

The final package in the latest batch of 
launches from Ariolasoft is called Cut and 
Paste. It's an easy to use word processor 
from Electronic Arts and its features 
include automatic word wrap, dynamic 
menus and full cut and paste editing. 

Ariolasoft's Ashley Gray said: 
“Ariolasoft has taken great care to ensure 
that these new productivity titles are 
exactly right for the home and small 
business user, both in terms of program 
quality, price and distinctive UK 
packaging.” 

Commodore is also launching new 
products for the serious user. Two new 
music systems were due to be launched at 
the Ideal Home Exhibition as we went to 
press. They are a complete Music System 
including a Commodore 64 for under 
£330 and a Music Expansion system for 
under £150. 

Staying with the more serious aspects 
of a Commodore user's life, Medstat, a 
Nottingham based software house, is 
promoting its range of exam revision 
software as we come around once more 


'A' level examinations and concentrate on 
verb and vocabulary learning. Prices start 
jjj at £13.95 and they are all available on the 

jj| Now to games. Fans of the Rocky 

H Horror Show who also own a C128 will be 
' * < x ' ^ jjjj pleased to hear that CRL is to bring out an 

' / ** y\ * _ HpBp IJI all new version of its Rocky Horror game 

~ specially for the 128. Redefined graphics, 

-W; =€ I brand new sprites, new animation and 

I 1 4 | gg even more locations are promised 

® mm together with some stunning effects. No 
* *Tw T ill K IS price has yet been announced for the 

SB wm I game but it should be available in May. 

l m 8 There's also good news from CRL for 

■\ IB | I ■ C-16 and Plus/4 owners. The Berks trilogy 

8 /IB is now available on one cassette priced at 

;*Mg \ J|t j m III £6.95. It features the original game, Berks 

"kmm | plus Major Blink (Berks 2) and Berks 3 an 

l Mm Im ^ arcade adventure in which you finally 

lyB^ 4 , |s|| mm,. iJL w penetrate the Berks city and steal their 

pB treasure, 

Mmmm* Virgin lias recently launched the 

official Football Association soccer game 
> > — FA Cup Football. The game is mainly 

text based and places you in the difficult 
' position of managing your teams through 

all the rounds of the FA Cup. 

Nick Alexander of Virgin cleans up soccer Tony Williams, author of the League 

Club Directory, upon whose extensive 
research t he game is based, said: “The FA 
to the time of 'O' and 'A' Levels. The Cup is football's most exciting 

revision aid programs cover French, competition and this game reflects that 

German, Spanish and Italian CSE, 'O' and excitement. We've had a great deal of fun 
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putting it together and I'm sure people 
will have as much fun playing it.” It cost 
£7.95 on the C64. 

Imagine has entered the Kung Fu 
games market with a new release called 
Yie Ar Kung Fu — a very violent game by 
the sound of it! Set in Japan, you take the 
part of Oolong who is attempting to 
become a Kung Fu grandmaster in order 
to honour the memory of his late, dear- 
departed father. Success depends on 
mastering the technique of the 16 
different kicks and punches. You've got 
10 opponents to beat and when you've 
knocked out Blues, the resident 
Grandmaster then the title is yours. 

There are two imminent C64 releases 
from Ocean. Green Beret, a 
contemporary war drama from Konami — 
makers of coin-op arcade games — is due 
for release in May at £8.95. There is also to 
be a computer game based on that good 
ol superhero Batman which is scheduled 
for a May launch and will retail again at 
£8.95. 

For those who would rather have the | 
satisfaction of creating their own 
programs without a lot of sweat, there is a 
new Graphic Adventre Creator for the 
C64/128 from Incentive Software. It is an 
adventure generator with a built in 
graphics editor and Incentive claims that 
it allows you to produce professional 
adventures with ease and does not 
require any knowledge of computer 
programming. It's due for release on 1 
May. 

In the shops now should be Micro 
Power's Doctor Who game, which has 
been in the pipeline for many months. 
The game contains about 130 screens and 
has three different tunes to keep you 
amused while you tackle the problems it 
represents. One of these is, of course the 
classic Doctor Who theme, the price — 
£11.95. Oh, and look out for the 
programmable droid cat. The what? 

If you want to be king of the gnomes, 
or you just want to find out a bit aboutthe 
intricacies of gnome culture then US 
Gold'sTimeTunnel might bethegamefor 
you. You have been chosen as the next 
gnome king but you need to complete the 
inevitable tasks to prove your worth. An 
ancient gnome manuscript has been 
ripped up and scattered through the ages 
by an evil cyclops — a weird mix of 
Scandinavian and Greek folklore! When 
you've got the seven pieces you can 
perform the magic spell which will free all 
the gnomes in the forests of Scandinavia 
and allow you to become their supreme 
leader. It's £6.95 on cassette and £14.95 on 
disk. 

Yet another well known hero has been 
transferred to the big screen and thence 
to the computer monitor. This time it's 
Biggies and Mirrorsoft has acquired the 
rights to produce the game of the film 
of the books. It should be out at the 
beginning of May so budding air aces 
watch out for it. 


Comic Bakery 

.- i 


Moving from the air right down to 
earth into the realms of the ludicrous you 
come to a new release from Imagine 
called Comic Bakery. You are Joe the 
baker in charge of your high tech loaf 
producing plant, and you must stop the 
scavenging raccoon dogs eating all the 
loaves. It's in the shops now at £8.95 on 
cassette. 

If you've always wanted to find out 
what it's like to be one of the boys in blue 
in a city police force then maybe Mind 
Games latest offering will give you some 
idea of what it's like. Allegedly produced 
in consultation with some of “Britain's top 
policemen'' it's a complicated game 
which requires you to keep law and order 
without losing your popularity. 
Impossible? Try it and see. It's £9.95 and 
patrolling the streets now. 

For C-16 owners there is now a version 
of Elite's very popular title Commando. 
Originally an arcade coin-op game it has 
been available for the C64 for some time. 
Now C-16 users can have a taste of 
excitement themselves. 





New: 


Touch Line 

Ariolasoft: 8 Westminster Palace Gardens, | 
Artillery Row, London SW1. 01 222 0833. 
US Gold. Unit 10, The Parkway Industrial 
| Centre, Heaneage Street, Birmingham. 
021 359 3020. 

Elite Systems: Anchor House, Anchor 
Road, Aldrige, Walsall WS9 8PW. 0992 | 
55852. 

Mind Game: Liberty House, 222 Regent | 
Street, London W1R 7DB. 01 439 0666. 
Imagine: 6 Central Street, Manchester M2 | 
5NS. 061 834 3939. 

Micro Power: Northwood House, North | 
Street, Leeds LS7 2AA. 0532 458800. 
Incentive: 54 London Street, Reading, 
Berks RG1 4SQ. 0734 591678. 

Ocean: As Imagine. 

Virgin: 2-4 Vernon Yard, Portobello Road, 
London W11 2DX. 01 727 8070. 

CRL: CRL House, 9 King's Yard, 
Carpenter's Road, London E15 2HD. 01 
533 2918. 

Medstat: City House, Maid Marion Way, 
Nottingham NG1 6BH. 0602 411120. 
Commodore: 1 Hunter's Road, Weldon, 
Corby, Northants NN17 1QX. 0536 205555. 


Generally Speaking 

A plug-in adaptor to get rid of mains 
interference is now available from 
Duraplug. It fits directly into a standard 
socket and provides a continuous 
laundering of the electrical supply to a 
plugged in appliance. 

Computers are apt to suffer from 
voltage surges and the adaptor will clean 
this up so that your printer won't print 
weird gobbledegook. 

It's available from high street shops for 
£17.90. 

Another of the smaller software 
houses in this country has joined together 
with one of the big boys to make 
distribution faster and more reliable. 

English Software has signed an 
agreement with US Gold to make the 
American firm and sole distributor of 
English Software's new products. If you've 
ever had any trouble getting hold of the 
latest English Software then perhaps it will 
be easier from now on. 

If you live in London or you come to 
town to do the occasional bit of shopping 
or business then you might like to pay a 
visit to the Commodore centre at 
Gultronic in Tottenham Court Road. 

Gultronic decided to open the centre 
to meet a growing demand for 
Commodore products. Gultronic's Sam 
Tulsiani said: “The Christmas season was 
very buoyant this year and our major 
problems were supply and not demand. 
Commodore products are of a high 
standard with a good range and the 
company is stable, that is why we decided 
to invest in the centre." 


The Commodore holiday off 

He continued: “We are convinced 
there is a good future in the home 
computer market as long as people put 
themselves behind the products. 

Following last month’s mention of 
CRL's new label we now h ave some more 
information on the subject. A company 
spokesman said: “Nu Wave has been 
developed for the comput *r user who has 
grown tired of the trac itional arcade 
game and adventure game and is looking 
for a refreshing altenative. We are 
confident that Nu Wave w II make a great 
impact on the software m arket in 1986." 

There are no Commodore programs 
available on the Nu Wave label at the 
moment but look out for it in the near 
future. 

Hard Lines 

Miracle Technology has jus t launched the 
new 64 Multimodem. It gives access to not 
only Prestel, Micronet, Microlink and 
viewdata services but also to databases, 
bulletin boards, electronic mail, telex and 
user-user communications 

The 64 Multimodem is a completedata 
comms solution — autoanswer, autodial 
on it has all software on bo ird in ROM. It 
is menu-driven and mu ti-speed and 
supports CCITT V21/23 and Bell 103 
standards handling baud ra es of 300/300, 
1200/75 and 75/1200. Functions include 
save and print frame, auto mailbox with 
edit and save and telesoftware 
downloading. 


completedata 
wer, autodial 
rd in ROM. It 
ti-speed and 
nd Bell 103 
es of 300/300, 
ions include 
|mailbox with 
elesoftware 


The cost of the new modem is £98.50 
(£116.15 including VAT and UK delivery). 

Commodore is running another 
holiday offer with purchases of new 
computers. The Commodore 64 
compendium andthe new 128 are just two 
products which come complete with up 
to £250 off a holiday for two. 

The offer is valid on a full range of 
Commodore peripherals including the 64 
Compendium, Commodore 128, disk 
drives, monitors and printers. 

Each product contains five £50 
vouchers which are redeemable against a 
variety of holiday from leading tour 
operators from Club 18-30 to CTC cruises. 

Commodore's Chris Kaday said: “Our 
unique holiday offer last year was an 
enormous success, so 'Passport to 
Pleasure' is really a variation on a proven 
theme. Our retailers are absolutely 
delighted and so, we believe, are our 
customers. It just goes to show what a little 
imagination and creativity can do in a so- 
called shrinking market." 

The vouchers are valid on any holiday 
taken before the end of October 1987. 


Touch Line 

Miracle Technology: St Peters Street, 
Ipswich IP1 1XB 

CRL: CRL House, 9 King's Yard, I 
Carpenter's Road, London E15 2HD. 01 
533 2918. 













FREE Electronic Mail. . . International 
Telex ... 10 National Chatlines (Interactive 
Bulletin Boards). . . 70,000 users across the 
UK . . . Teleshopping . . . Multi-User 
Interactive Strategy Games 


Instant computer news . . . Hardware and 
software reviews . . . Technical features . . 
Hints and tips . . . On-line business advice 
and features 



FREE and discounted quality software to 
download direct to your micro -24 hours a 
day 


300,000 pages of information on the huge 
|R E ST E L Prestel database 


PRESTEL is a trademark of British Telecommunications 


jfyxa/tet 800 - 



Micronet 800 

8 Herbal Hill, London EC1R 5EJ 
Telephone: 01-278 3143 


for just 20p a day 



To: Micronet 800, 8 Herbal Hill, London EC1 

Please send me a brochure on Micronet 800 

Name_ 

Address_ 


_Telephone No. 

Age_Micro_ 


Y-COM 5.86 
























If you used to have a Meccano 
kit when you were knee high to 
a grasshopper then you'll 
probably be very interested in 
this month's prize. We got 
together with CRL to offer you, 
as first prize, a Robotrix Master 
Set. You can use it to build your ■— 
own robots and you can even lr ~ 
make them mobile because 
there are four motors included 

The runners-up prizes wil 
be especially attractive to our 
rapidly growing number of C- 
16 and Plus/4 readers. There 
are 25 copies of the Berks 
Trilogy from CRL. 

How to Enter 

Study the two cartoons. 
There are a number ol 
differences between them. 
Mark the differences which 
you find on the cartoon 
attached to the entry coupon. 

Fill in the coupon clearly and 
carefully and seal it in an 
envelope. Write your answer 
on the back of the envelope 
and send it to: CRL Competi¬ 
tion, Your Commodore, No 1 
Golden Square, London W1R 
3AB. Closing date: Friday 30 
May, 1986. 


The Rules 

Entries will not be accepted 
from employees of Argus 
Specialist Publications, CRL 
and Alabaster Passmore and 
Sons. This restriction also 
applies to employee's families 
and agents of the company. 

The How to Enter section 
forms part of the rules. The 
editor's decision is final and no 
correspondence will be 
entered into. 



CRL Competition Entry Form 

Name .... 

Address .. 

post code 


Send your entry to: CRL Competition, Your 
Commodore, No 1 Golden Square, London W1R 3AB. 

Closing date: Friday 30 May, 1986. 

Don’t forget to write your entry on the back of your envelope. 


Number of differences found 


X 
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Coming in May 


Commodore 64 
Spectrum 48 K 


£9.95 tape, £12.95 disk 
£9.95 tape 


Coming in June 


Amstrad CPC 


£9.95 tape, £14.95 disk 


Purnell Book Centre, Paulton, Bristol BS18 5LQ 


The result of unique co-operation between three ace software developers 
and the Biggies film production company, Biggies - The Untold Story will 
knock you right out of the air! It’s a multi-part arcade strategy game in 
which each part must be completed to reach your final goal. 

In the air, on the rooftops, on the ground, or in the trenches 

YOU CAN BE A HERO! 










■■ 


100 s RACIN6 CAR ( LEFT ) 113 DATA095, 

101 DATAOOO,000,000,000,000,015,000,255 116 DATA127, 

102 DATA058,003,085,238,003,255,235,003 117 DATA255, 

103 DATA127,233,003,255,165,003,255,165 118 : BORB 

104 0ATA003,255,255,063,213,083,213,117 119 DATAOOO, 

105 DATA253,255,245,169,223,245,169,255 120 DATA080, 

106 DATA245,253,255,255,253,253,255,189 121 DATA0B3, 

|107 DATA255,255,253,235,253,255,235,252 122 0ATA005, 

108 DATA061,253,252,015,063,240,000,000 123 DATA084, 

109 t RAC1N6 CAR ( RI6HT ) 124 DATA085, 

110 DATAOOO,000,000,240,000,000,172,255 125 DATAOOl, 

| 111 DATAOOO,187,085,192,235,255,192,107 126 DATAOOO, 

112 DATA253,192,090,235,192,090,235,192 127 i GHOST 
|113 DATA235,255,192,085,087,232,255,093 128 DATAOOO, 
114 DATA087,106,093,235,106,095,247,127 129 DATAOOO, 


255,127,255,255,126,255,255 

255,235,255,255,253,124,063 

240,063,255,000,015,252,000 


000 , 000 , 

000 , 012 , 

064,001, 

149,084, 

005,085, 

084,005, 

093,240, 

000 , 000 , 


000 , 001 , 

000 , 000 , 

101,080, 

006,149, 

084,005, 

085,252, 

000,255, 

000 , 000 , 


004,000,004 

063,000,000 

001,165,080 

084,005,085 

085,084,005 

001,085,240 

192,000,063 

000 , 000,000 


000,000,000,000,000,000,052 

000,253,000,003,255,064,015 


130 DATA253, 

131 DATA063, 

132 DATA208, 

133 DATA125, 

134 DATA211, 

135 DATAOOO, 

136 i BITCH 

137 DATA003, 

138 DATAOOO, 

139 D^IA18B, 

140 DATAOOO, 

141 DATAOOO, 

142 DATA085, 

143 DATAOOO, 

144 DATAOOO, 


208,015,235,208,063,252,000 

252,128,063,255,064,063,255 

013,240,208,003,254,000,001' 

128,000,127,080,193,235,0641 

233,000,055,244,000,063,208 

015,064,000,003,000,000,000 


192,000,015, 

002,176,000, 

000,002,148, 

084,000,000, 

001,021,064, 

127,000,085, 

018,000,000, 

000 , 000 , 000 , 


240,000,010,252 
040,191,000,032| 
064,002,083,064 
081,000,001,069! 
011,005,079,249 
063,000,085,015 
000 , 000 , 000,000 
000 , 000 , 000,000 


When you are designing a game one of the longest jobs is de¬ 
signing the sprites. If you are good at art then fine, if not your 
next monster will probably end up looking like a square box 
with legs. 

Now, Your Commodore comes to the rescue once again 
with Sprite Ideas. If you have designed any sprites for games 
and you don't mind other people seeing your masterworks 
then why not send them into us. Each month we will be offering 
£10 for the best entries. 

Your sprites can be anything at all (within reason), if you've 
designed a series of animated characters then send in the lot. 
We'd love to have a look at them. 

So, next time you are after an Ogre to put in your new game, 
have a look in this section of the magazine and you may find 
just what you are looking for. 


















































































































































C64 


ADVENTURE 


AID 


Allen Webb comes to 


the rescue of budding 


adventure 


programmers. 


IN MY SHORT ADVENTURE 
series last year, I suggested a 
number of ways of saving 
memory when writing 
adventures. In this article, I will 
describe some machine code 
routines which will actually do 
the job for you. Since each 
routine requires a set of data 
tables, I have written three 
editors in Basic which will allow 
you to create the necessary 
data bases. 

There are three areas for 
real saving: 

1. The interpretor 

2. The storage of text 

3. The storage of objects 

In order to offer the largest 
possible portion of RAM for 
Basic, I have used the area 
behind the ROMs. The 
memory map of the system, 
assuming that you use all three 


routines, is: 
$8600-$95FF 

Object 

$9600-$96FF 

descriptions 

Link word table 

$9700-$9AFF 

Verb table 

$9B00-$9EFF 

Noun table 

$9F00-$9FFF 

Text work area 

$AOOO-$BFFF 

Lower text area 

$COOO-$C1BE 

Interpretor 

$C200-$C2FF 

Buffer 

$C900-$C9B9 

Object 

$C400-$C4FF 

manipulation 

code 

Object location 

$CB00-$CCFF 

table 

Low area tables 



130 IF PEEK(50176+OB)<>L0 TH 

PRQ6RAM: EXAMPLE 


EN PRINT CHR$(147)"I CAN’ 

T FIND IT":RETURN 


140 POKE 50176+OB,255 

10 POKE 56,134: CLR 

: PRINT CHR$(147)"TAKEN" 

20 SYS 679,"OBJECTS*,8,34304 

:RETURN 

30 SYS 679,"OBJECTS.T",8, 

150 REM LOOK 

50176 

155 PRINT CHR$(147)CHR$(31); 

40 SYS 679,"VOCABULARY",8, 

: SYS 51456,LO-1 

38400 

160 PRINT"I CAN SEE:"CHR$(28) 

45 SYS 679,"TEXT",8,40960 

170 SYS 49920,LO: IF PEEK(50 

46 SYS 679,"TEXT.T",8,51968 

1031=255 THEN PRINT’NOTHI 

50 POKE 40705,0:POKE 40706,6 

NG OF VALUE" 

:POKE 53281,15 

180 RETURN 

:POKE 53280,15 

190 REM INVENTORY 

:PRINT CHR$(147):L0=1 

200 PRINT CHR$(147)"YOU’RE 

55 GOSUB 150 

CARRYING" 

60 SYS 49152,0,21 

210 SYS 49920,255 

70 IF PEEK(40714)=255 THEN 1 

: IF PEEK(50103)=255 THEN 

00 

PRINT CHR$(28)"NOTHING 

80 VE=PEEK(40711) 

11 

: 0B=PEEK(40712)-1 

220 RETURN 

: LI=PEEK(40713) 

230 REM DROP 

90 ON VE GOSUB 120,150,190, 

240 IF PEEK(50176+OB)<>255 T 

230 

HEN PRINT CHR$(147)"YOU 

100 POKE 781,21: POKE 782,0 

DON’T HAVE IT":RETURN 

: POKE 783,0: SYS 65520 

250 POKE 50176+OB,LO 

110 PRINT"ESPC393":GOTO 60 

: PRINT CHR$(147)"DROPPED" 

120 REM TAKE 

:RETURN ^ 




141,232,3,169,55,133,1,96 

60 FOR 1=0 TO 32:READ X 
:POKE 50944+1,X:NEXT 

70 REMtmmtmm 

80 REIMS SAVE BLOCK t 

90 REMtmmtmm 

100 DATA 32,212,225,32,253, 
174,32,138,173,32,247,183, 
165,20,72,165,21,72,32,253 

PROGRAM: LOADER 

10 REMtmmmm 

20 REMIISPC2IPEEKALLISPC2H 

30 REMtmmmm 

40 DATA 32,253,174,32,138, 
173,32,247,183,165,20,164, 
21,133,180,132,181,160,0 

50 DATA 169,52,133,1,177,180, 


$CD00-$CEFF High area tables 
$CF00-$CFFF Buffer 
$E000-$FFFF High text area. 

Using this system, you have 
the following capabilities and 
limitations: 

32255 bytes for Basic useage. 
1536 bytes ($C500-$CAFF) for 
other purposes. 

Up to: 

255 verbs 
255 nouns 
63 link words 

255 objects in any of 255 
locations 

16382 bytes for use for up to 512 
messages or descriptions 

Whilst this may not be up to 
the Quill's standards, it's 
enough for quite a significant 
adventure. 

The editors use three 
machine code routines for the 
loading and saving of data 
blocks. These are included 
with the other machine code in 
Loader 1. I've kept the six 
blocks of code separate so that 
you can omit the utilities at a 
later date. If you choose to use 
them in your final adventure 
(certainly SAVE and LOAD), 
they occupy spare space 
between the ROMs which is 
low in memory so that they 
don't interfere with the main 
code. I'll discuss these utilities 
later. 

The interpretor is similar to 
the one in my earlier series but 
has been rewritten so as to be 
more compact. It is called by a 
simple SYS 49152,X,Y. The 
prompt for input will start at 
co-ordinates X and Y. The 
interpretor will accept up to 79 
characters and delete is 
available to correct your input. 
The text is scanned to extract 







































the first, second and last words. 
The first is called the verb, the 
second the link word and the 
last the noun. Here are some 
examples: 


These words are checked in 
the vocabulary and you are told 
if any are not recognised. The 
positions of found words in the 
vocabulary are returned in 
three registers and an error 
register tells you if the search 
has shown any unknown 
words. These registers are: 

Verb register —40711 
Noun register —40712 
Link word register — 40713 
Error register — 40714 (0=no 
error, 255=word not recognised) 

When using the interpreter, 
the error register allows you to 
loop back for a new command 
if the last one is not under¬ 
stood. The example program 
given later shows this. 

In order to fit the 
interpreter into your own 
colour scheme, location 40705 
holds the colour of the prompt 
and 40706 holds the colour of 
the input command. 

Listing 1 gives an editor for 
the creation of a vocabulary. 
The editor is menu driven and 
the functions allow you to 
create, alter, load and save the 
vocabulary. There is also an 
option which allows you to test 
the interpreter and get to know 
its operation. The main thing to 
remember is to erase the tables 
if you plan to create a new 
vocabulary. Whilst the editor 
will accept words of any length, 
only the first four characters 
are used. Words shorter than 
four letters are padded with 
spaces. 

One of the biggest 
consumers of memory is text. 
Clever companies such as Level 
9 use data compression to fit 
more in. I will content myself 
with simply using “unused” 
RAM. The code provides two 
commands: 


SYS 51456,MN 

prints message number MN 
from the area behind the Basic 
ROM (the lower text area). 

SYS 51459,MN 


110 DATA 174,32,138,173,32, 
247,183,165,1,41,254,133, 
1,166,20,164,21,104,133,21 


120 DATA 104,133,20,169,20, 
32,95,225,165,1,9,1,133,1, 
96 

130 FOR 1=50688 TO 50742 
:READ X:P0KE I,X:T=T+X 
: NEXT 

140 REnmmttmmm 
150 REN* RELOCATE LOAD * 

160 REnmmtmmtm 
170 DATA 32,253,174,32,158, 

173.32.166.182.141.131.3, 
160,0,177,34,153,60,3,200 

180 DATA 204,131,3,208,245, 

32.241.2.165.20.141.130.3, 
32,241,2,165,20,164,21,133 

190 DATA 251,132,252,169,1, 
174,130,3,160,0,32,186, 
255,173,131,3,162,60,160,3 
200 DATA 32,189,255,169,0, 
166,251,164,252,32,213, 
255,96,32,253,174,32,138, 
173 

210 DATA 32,247,183,96,0 
220 FOR 1=679 TO 763 
230 READ X: POKE I,X:NEXT 

240 rem ittimmti 

250 REM TEXT M/CCSPC2]* 

260 REnmmmmt 
270 DATA 76,16,201,76,71,201, 
32,253,174,32,138,173,32, 
247,183,96,32,6,201,164 
280 DATA 20,140,68,3,185,0, 
203,133,98,185,0,204,133, 
99,120,165,1,41,254,133,1 
290 DATA 160,0,177,98,240,6, 
153,0,207,200,208,246,153, 
0,207,165,1,9,1,133,1,88 
300 DATA 169,0,160,207,32,30, 
171,96,32,6,201,164,20, 
140,68,3,185,0,205,133,98 
310 DATA 185,0,206,133,99, 
120,165,1,41,253,133,1, 
160,0,177,98,240,6,153,0, 
207 

320 DATA 200,208,246,153,0, 
207,165,1,9,2,133,1,88, 
169,0,160,207,32,30,171,96 
330 FOR 1=51456 TO 51581 
340 READ X: POKE I,X:NEXT 


350 REnmtmmmmm 
360 REM* INTERPRETOR M/C * 

370 REntmmmmmm 
380 DATA 32,24,192,32,79,192, 
32,135,192,173,3,159,205, 
0,159,240,6,32,188,192 
390 DATA 32,252,192,96,169,0, 
141,0,159,141,3,159,141,4, 

159.141.5.159.141.9.159 
400 DATA 141,8,159,141,7,159, 

141,10,159,160,0,169,32, 
153,0,194,200,192,80,144 
410 DATA 248,160,0,153,120, 
194,153,160,194,153,200, 

194.200.192.40.208.242.96 
420 DATA 32,66,193,72,32,66, 

193,170,104,168,24,32,240, 
255,173,1,159,141,134,2 
430 DATA 169,62,32,210,255, 
173,2,159,141,134,2,160,0, 
32,207,255,201,13,240,7 
440 DATA 153,0,194,200,76, 
112,192,169,0,153,0,194, 
140,0,159,96,160,0,185,0, 
194 

450 DATA 201,32,240,9,153, 
120,194,200,204,0,159,208, 
240,140,3,159,169,0,133, 
251 

460 DATA 169,151,133,252,169, 
120,133,253,169,194,133, 

254.173.12.159.141.11.159 
470 DATA 32,78,193,48,4,232, 

142,7,159,96,172,0,159, 
185,0,194,201,32,240,3,136 
480 DATA 208,246,200,162,0, 
185,0,194,157,160,194,232, 
200,204,0,159,208,243,142 
490 DATA 4,159,169,0,133,251, 
169,155,133,252,169,160, 
133,253,169,194,133,254 
500 DATA 173,13,159,141,11, 
159,32,78,193,48,4,232, 

142.8.159.96.24.173.3.159 
510 DATA 109,4,159,105,1,205, 

0,159,208,1,96,172,3,159, 
200,162,0,185,0,194,201 
520 DATA 32,240,7,157,200, 
194,232,200,208,242,142,5, 
159,169,0,133,251,169,150 
530 DATA 133,252,169,200,133, 
253,169,194,133,254,173, 
14,159,141,11,159,32,78 
540 DATA 193,48,4,232,142,9, 
159,96,32,253,174,32,138, 

173.32.247.183.165.20.96 
550 DATA 169,0,162,0,141,10, 

159,160,0,177,253,209,251, 

208,8,200,192,4,208,245 


Input 

Verb 

Link word 

Noun 

look 

look 

— 

— 

take sword 

take 

— 

sword 

take the 
big sword 

take 

the 

sword 


12 


560 DATA 76,179,193,232,236, 
11,159,240,16,24,165,251, 
105,4,133,251,165,252,105 
570 DATA 0,133,252,76,85,193, 
160,0,169,13,32,210,255, 
173,1,159,141,134,2,177 
580 DATA 253,201,32,240,7,32, 
210,255,200,76,136,193, 
160,0,173,2,159,141,134 
590 DATA 2,185,180,193,201,0, 
240,10,32,210,255,200,76, 

157.193.32.210.255.169 
600 DATA 255,141,10,159,96, 

32,73,83,32,78,79,84,32, 
73,78,32,77,89,32,68,73,67 
610 DATA 84,73,79,78,65,82, 
89,0 
620 REM 

630 FOR 1=49152 TO 49612 
640 READ X: POKE I,X:NEXT 
650 REimmtmmm 
660 REM OBJECTS M/C » 

670 REMtmmtmm 
680 DATA 76,6,195,76,112,195, 
32,166,195,165,20,141,182, 
195,169,255,141,183,195 
690 DATA 160,0,140,177,195, 
140,178,195,172,178,195, 
185,0,196,205,182,195,208 
700 DATA 62,169,0,133,251, 
169,134,133,252,173,178, 
195,141,177,195,173,177, 
195 

710 DATA 240,21,24,165,251, 
105,16,133,251,165,252, 
105,0,133,252,206,177,195, 
173 

720 DATA 177,195,208,235,160, 
0,177,251,32,210,255,200, 

192.16.144.246.169.13.32 
730 DATA 210,255,169,0,141, 

183,195,238,178,195,173, 

178,195,205,184,195,208, 

172 

740 DATA 96,32,166,195,164, 
20,136,140,177,195,32,166, 

195.165.20.141.180.195.32 
750 DATA 166,195,165,20,141, 

181,195,172,177,195,185,0, 

196.205.180.195.240.6.169 
760 DATA 255,141,183,195,96, 

173,181,195,153,0,196,169, 
0,141,183,195,96,32,253 
770 DATA 174,32,138,173,32, 
247,183,96,0,0,0,0,0,0,0, 
0,255 

780 FOR 1=49920 TO 50104 
790 READ X: POKE 1,1: NEXT 














300 GOSUB 900:PRINT CHR$(147) 

F 

610 IF I*="S"THEN 640 

PROGRAM: LISTING 1 


:60T0 110 

620 IF I*="L"THEN 680 ' 

--- ----— 


310 GOSUB 760 

630 GOTO 600 r 

10 PRINT CHR$(147> 

320 INPUT"[D0WN3]INPUT WORD"; 

640 INPUT"EDOWN23FILE NAME"; t 

20 TA(1)=3S656: TL(1)=40716 

W0$ 

FI* « 

: ML(1)=256: REM VERB TAB 

330 IF LEN(W0$)>4 THEN W0t=L 

650 PRINT"CDOWN23SAVING...," ( 

t 

LE 

EFT$(W0$,4):GOTO 350 

660 SYS 50688 FI*,DE,2,38400, 

30 TA(2)=39680: TL(2)=40717 

340 IF LEN(H0$)<4 THEN W0t=W 

40959 . 

: ML(2)=256: REM NOUN TAB 

Q$+CHR$(32):GOTO 340 

670 PRINT CHR*(147):GOTO 110 

LE 

350 FOR 1=1 TO 4 

680 INPUT’CDOWN23FILE NAME"; 1 

40 TA(3)=38400: TL(3)=40718 

360 POKE(TAIN)+1-1+(WN-1)14), 

fi * ] 

: ML(3)=64: REM LINK TAB 

ASC(MID$(W0$,1,1)):NEXT 

690 PRINT"CD0WN23L0ADING..." 

LE 

370 PRINT CHR$(147):GOTO 110 

700 SYS 679,Fit,DE,38400 - 

50 VN=40707:NN=40708:PN=40709 

380 FL=1:GOSUB 760 

710 PRINT CHR*(147):GOTO 110 < 

60 : 

390 WN=PEEK(TL(N))+l 

720 PRINT CHR*(147)"CURRENT 

70 : 

:IF WN<ML(N)THEN 400 

DEVICE IS’DE 

80 DE=8 

395 PRINT"N0 ROOM IN TABLE’ 

730 INPUT NEW DEVICE";DE 

90 POKE 53280,11:POKE 53281, 

:FOR D=1 TO 3000:NEXT 

740 PRINT CHR*(147):GOTO 110 

12:POKE 646,0:PRINT CHR$( 

:GOTO 460 

750 END 

147) 

400 INPUT"[D0WN3]INPUT WORD"; 

760 PRINT CHR*(147) 

100 POKE 40705,0:POKE 40706,1 

wot 

:INPUT’WHICH TABLE(V/N/L) 

110 X=6:Y=5:6QSUB 930 

410 IF LEN(W0$)>4 THEN W0*=L 

"; I* 

:PRINT"ADVENTURE INTERPRE 

EFT*(W0t,4):G0T0 430 

770 IF It="V"THEN N=1 

TOR EDITOR’ 

420 IF LEN(WO*)<4 THEN W0*=W 

•.GOTO 810 

120 X=6:Y=7:G0SUB 930 

0$+CHR$(32):GOTO 420 

780 IF I*="N”THEN N=2 

:PRINT"1. ADD A WORD TO 

430 FOR 1=1 TO 4 

:GOTO 810 

DICTIONARY* 

440 POKE(TAIN)+1-1+(WN-1)14), 

790 IF It="L"THEN N=3 

130 X=6:Y=8:GOSUB 930 

ASC(HID*(NQ$,I,1)):NEXT 

:GOTO 810 

:PRINT-2. CHANGE A WORD- 

450 POKE TL (N) ,PEEKITL (N) )+1 

800 60T0 760 

140 X=6:Y=9:GOSUB 930 

460 PRINT CHR*(147):GOTO 110 

810 IF FL=1 THEN FL=0:RETURN 

:PRINT"3. LIST DICTIONARY 

n 

470 PRINT CHR$(147) 

820 INPUT"ED0WN2] 

150 X=6:Y=10:GQSUB 930 

:SYS 12*4096,0,22 

WORD NUMBER";WN 

:PRINT-4. TEST INTERPRETO 

480 PRINT"[HOME,BLACK]VERB 

825 IF WN>ML(N)THEN 820 

R* 

NUMBER’PEEK(40711) 

830 IF WN>PEEK(TL(N))OR WN=0 

160 X=6: Y=11:GOSUB 930 

490 PRINT'NOUN NUMBER"PEEK(4 

THEN 820 

:PRINT-5. SAVE/LOAD DATA" 

0712) 

840 PRINT*CD0WN2IW0RD N0"WN" 

170 X=6: Y=12:GOSUB 930 

500 PRINT’LINK WORD NUMBER"? 

IS ’;: 

:PRINT"6. ERASE TABLES" 

EEK(40713) 

850 FOR 1=1 TO 4 

180 GET I«:IF ItCTOR I*>"6 

510 PRINT"[RVSON,DOWN,RIGHT, 

860 PRINT CHR*(PEEK(TA(N)+1- 

■THEN 180 

SPC73PRESS A KEY TO CONTI 

1 +(WN-1) *4)) ;:NEXT:PRINT 

190 ON VAL(1$)SOTO 380,310, 

NUECSPC8]" 

870 INPUT"CD0WN2] 

200,470,600,560 

520 PRINT"[RVSON,DOWN,RIGHT, 

OK TO PROCEED";I* 

200 FL=ls GOSUB 760 

SPC103PRESS * TO EXIT 

880 IF ItO"Y"THEN 760 

210 IF PEEK(TL(N))=0 THEN PR 

[SPC13]* 

890 RETURN 

INT-CCLEAR1N0 WORDS IN 

530 GET I*:IF I*=""THEN 530 

900 PRINT'CRVSON,DOWN,RIGHT, 

TABLE":GOSUB 900 

540 IF I*=’*'THEN PRINT CHR* 

SPC7IPRESS A KEY TO CONTI 

:PRINT"[CLEAR]":GOTO 110 

(147):GOTO 110 

NUEISPC83’ 

220 HN=1:PRINT CHR$(147> 

550 GOTO 470 

910 GET It:IF I*=""THEN 910 

230 PRINT"WORD WN"CSPC2]"; 

560 PRINT CHR*(147)"CLEARING 

920 RETURN 

240 FOR 1=1 TO 4 

TABLES* 

930 POKE 781,Y:POKE 782,X 

250 PRINT CHR*(PEEK(TA(N)+I- 


570 FOR 1=40716 TO 40718 

:POKE 783,0:SYS 65520 

1+(WN-1)*4));:NEXT:PRINT 

:POKE 1,0:NEXT 

:RETURN 

260 WN=WN+1:IF WNO20 THEN 2 

580 FOR 1=38400 TO 40703 

940 REMtmmmmmmm 

90 

:POKE I,32:NEXT 

950 REM* INTERPRETOR EDITOR 

270 GOSUB 900 

590 PRINT CHR*(147):GOTO 110 

* 

280 PRINT CHRt( 147):GOTO 230 

600 PRINT CHR*(147); 

960 REMt*********t*********** 

290 IF WN<=PEEK(TL(N) ) THEN 2 

■•INPUT"SAVE OR LOAD (S/L) 


30 

"; i* 



The start addresses of the 
usages are kept in two 
Dies. The function of the 


In order to allow you to 
re messages of any length, 
up to a maximum of 255 
aracters, the editor does not 
ow you to edit text that has 
en entered. I therefore 
ongly recommend that you 
ite down your text before 
mating the text data base. And 
ter it with care! 

Again, menus are used to 
1 editing. The editor acts 
mainly on the lower text area, if 
you wish to create a database in 
the upper text area, commands 
are provided which convert a 
lower area file to an upper area 
file. Again, you may save and 
load text but in this case two 
files are saved: The text file and 
the table file 

The table file has the same 
name as the text file but is 
suffixed by .T. For example: 
Textfile name — WOMBAT 
Tablefile name — WOMBAT.T 

Obviously the files are 
loaded to different addresses. 
If you use the loader provided, 
the start addresses are: 

Low area — text address = 
40960, table address = 51968. 
High area — text address = 
57344, table address = 52480. 

You can include colour 
changes or control codes into 
text by pressing the corres¬ 
ponding CTRL or CBM key 
combinations when entering 
text. Before creation of new 
text files, don't forget to use the 
erase option. 

Finally , what do we do with 
objects? In any adventure you 
need to know where objects 
are kept so you can take, drop 
or look at them. Two sets of 
data are saved by the editor in 
Listing 3. 

First there is a table of 
object names. Each can be up 
to 16 characters long. A second 
table keeps a record of the 
location of the objects (this 
table starts at 50176). 

The machine code lists the 
items held at a specific location 
and has the syntax: 

SYS 49920,LO 

where LO is the location 
concerned. Each item is 













To perform Inventory, you 
then use: 

10 PRINT “YOU’RE CARRYING:” 
20 SYS 49920,255 

I have assumed that location 
255 refers to possessed objects. 
To perform Look, use: 

10 PRINT “YOU CAN SEE:” 

20 SYS 49920,LO 

Here, LO is the location 
number. 

To check whether an object 
is available for taking, 
dropping, examining etc, 
simply PEEK the relevant entry 
for the object in the position 
table. 

As with the text editor, the 
object data base is saved as two 
files: the object table and the 
position table. As before, the 
position table has the same 
name, albeit suffixed by .T. 

The Save and Load routines 
given earlier may well be of 
value in your own programs. 
The Save transfers the block of 
memory from SA to FA to 
device DE and has the syntax: 

SYS 50688 Filename,DE,2,SA,FA 

The Load routine is 
extemely handy. You will know 
that if you use LOAD with a 
secondary address of one (to 
force a relocated load) that the 
program reruns. The Load 
allows you to load a block of 
data to any specified address 
SA and does not try to rerun 
your program. The syntax is: 

SYS 679,File name,DE,SA 

Study the example program 
which shows the use of the 
three sets of routines. 

The routine assumes the 
following: 

1. The verbs Take, Look, Inven¬ 
tory and Drop occupy the first 
four positions in the verb table 

1. e. Take = 1, Look = 2 etc. 

2. There is an object e.g. a 
sword, in the noun table. 

3. The object specified in 2 is in 
location 1. 

4. The location descriptions 
start at message 0 in the lower 
text area. 

5. All possessed items are in 
location 255. 


PROGRAM: LISTING 2 


10 POKE 53280, IhPOKE 53281, 
12:POKE 646,0 

20 FOR 1=0 TO 79: BL$=BL$+CH 
R*(32):NEXT 
30 POKE 650,128 
40 DE=8 
50 REM 

60 REM MAIN MENU 
70 REM 

80 PRINT CHR$(147): X=14: Y=8 
: GOSUB 1410:PRINT*MAIN 
MENU": Y=10: X=10 
90 GOSUB 1410:PRINT"1. LOWER 
TEXT AREA" 

100 Y=ll:GOSUB 1410 

:PRINT"2. CONVERT FOR UPP 
ER AREA" 

110 Y=12;G0SUB 1410 

:PRINT"3. SAVE/LOAD DATA" 
120 Y=13:GOSUB 1410 
:PRINT"4. DEVICE" 

130 Y=14:GOSUB 1410 
:PRINT’S. LOAD & CHECK 
IN UPPER AREA" 

140 GET 1$:IF I$<T0R I*>"5 
"THEN 140 

150 ON VAL(1$) GOTO 190,670, 
750,1090,1150 
160 REM 

170 REM TEXT AREA MENU 
180 REM 


190 PRINT CHR$(147): X=14:Y=8 
:GOSUB 1410:PRINT"LOWER 
TEXT AREA" 

200 X=15: Y=10:GOSUB 1410 
:PRINT”1.VIEW TEXT" 

210 X=15:Y=11:GOSUB 1410 
:PRINT"2.ENTER TEXT" 

220 X=15:Y=12:GOSUB 1410 
:PRINT"3.ERASE TABLES" 

230 X=15:Y=13:GOSUB 1410 
:PRINT"4.MAIN MENU" 

240 GET 1$:IF I$<"0'OR I$>"4 
"THEN 240 

250 ON VAL(I$) GOTO 260,410, 
580,80 

260 PRINT CHR$(147) 

270 REM 

280 REM VIEW TEXT 
290 REM 
300 MN=0 

310 IF PEEK(52224+NN)=0 THEN 
190 

320 PRINT"[REDIMESSAGE # 
[BLACKI'jMN 
330 PRINT CHR$(158) 

:SYS 51456,MNiPRINT 
340 PRINT"- 

[BLACK]" 

350 GET 1$:IF I$=""THEN 350 
360 MN=MN+1:GOTO 310 
370 GOTO 190 
380 REM 

390 REM ENTER TEXT 


400 REM 

410 PRINT CHR$<147):MN=0 
420 IF PEEK!52224+MN)=0 THEN 
440 

430 MN*MN+1:GOTO 420 
440 IF MN=0 THEN SA=40960 
:FA=SA:GOTO 485 
450 SA=PEEK(52224+MN-l)*256+ 
PEEK(51968+MN-l) 

460 FA=SA 

470 SYS 50944,FA:IF PEEK(100 
0)=0 THEN 485 
480 FA=FA+1:GOTO 470 
485 FM=49151-FA:PRINT"[HOME] 
FREE MEM0RY="FM“ BYTES" 

490 M$="MESSAGE l"+STR$(MN) 

:GOSUB 1290: IF SA=40960 
AND MN=0 THEN 510 
500 SA=FA+1:IF FA>49152 THEN 
190 

510 POKE 52224+MN,SA/256 
520 POKE 51968+MN, 

SA-INT(SA/256)*256 
525 IF FM<LEN(ME$)THEN PRINT 
"NO ROOM FOR MESSAGE" 

:FOR D=1 TO 3000:NEXT 
: GOTO 190 

530 FOR 1=1 TO LEN(MEI) 

540 POKE SA-1+I,ASC(MID$(ME$, 
1,1)):NEXT:POKE SA+1,0 
:GOTO 190 
550 REM 

560 REM CLEAR LOWER AREA 
570 REM 

580 PRINT CHR$(147)"CLEARING 
TEXT TABLES' 

590 FOR MN=0 TO 254 
600 POKE 51968+MN,0 
:POKE 52224+MN,0:NEXT 
610 PRINT CHR$(147)"CLEARING 
TEXT AREA" 

620 FOR 1= 40960 TO 49151 
: POKE I,0:NEXT 
630 GOTO 190 
640 REM 

650 REM CONVERT ADDRESS TABLE 
660 REM 

670 1=0:PRINT CHR*(147)“CONV 
ERTING ADDRESS TABLE" 

680 Z=PEEK(52224+1) 

:IF Z=0 THEN 710 
690 POKE 52224+1,Z+64 
700 1=1+1:IF K256 THEN 680 
710 GOTO 190 
720 REM 

730 REM SAVE/LOAD 
740 REM 

750 PRINT CHR*(147): X=14 



























: Y=8: GOSUB 1410 

1140 REM 

:PRINT"SAVE/LOAD": Y=10 

1150 PRINT CHR$(147) 

: X=13 

: INPUT"FILE NAME";FI$ 

760 GOSUB 1410:PRINT"1. SAVE 

1160 PRINT"CD0WN3 

DATA’ 

LOADING TEXT TO UPPER ARE 

770 Y=11:G0SUB 1410 

A":SYS 679,FI$,DE,57344 

: PRINTS. LOAD DATA" 

1170 FIt=FIt+".T" 

780 GET I*:IF I$<"0"OR I$>"2 

: PRINT" ED0NN3L0ADING A DDR 

"THEN 780 

ESS TABLES":SYS 679,FI$, 

790 ON VAL(It) GOTO 830,950 

DE,52480 

800 REN 

1180 NN=0:PRINT CHR$(147)"TE 

810 REM SAVE DATA 

XT IN UPPER AREA" 

820 REM 

1190 IF PEEK(52736+MN)=0 THE 

830 PRINT CHR$(147): X=14 

N 190 

: Y=8: GOSUB 1410 

1200 PRINT"[REDIMESSAGE # 

iPRINT’SAVE": Y=10: X=10 

[NHITEI";MN 

840 REM SAVE TEXT AREA 

1210 PRINT CHRt(158) 

850 PRINT CHR$(147) 

:SYS 51459,MN:PRINT 

:INPUT “FILE NAME FOR TEX 

1220 PRINT"--. 

T AREA";FI$ 

— 

860 PRINT"CD0WN3SAVING TEXT" 

[BLACK!" 

870 SYS 50688 FI$,DE,2,40960, 

1230 GET 1$:IF It=""THEN 1230 

49151 

1240 MN=MN+1:GOTO 1190 

880 FIt=FI$+".T" 

1250 GOTO 80 

890 PRINT“SAVIN6 ADDRESS TAB 

1260 REM 

LES" 

1270 REM INPUT A STRING 

900 SYS 50688 FI$,DE,2,51968, 

1280 REM 

52479 

1290 ME4="":PRINT Mt 

910 GOTO 190 

1300 GET It:IF It=""THEN 1300 

920 REM 

1310 IF I4=CHR$(13)THEN 1370 

930 REM LOAD 

1320 IF LEN(MEt)=254 AND I$< 

940 REM 

>CHR$[20)THEN 1300 

950 PRINT CHR4(147): 

1330 IF I$=CHR$(19)OR I$=CHR 

960 REM 

♦(147)OR I$=CHR$(148)THEN 

970 REM LOAD TEXT AREA 

1300 

980 REM 

1340 IF I4=CHR$(20)THEN NE*= 

990 PRINT CHR$<147)"LOAD TEX 

LEFTt(MEt,LEN(MEt)-l) 

T AREA* 

:GOTO 1360 

1000 INPUT "IDOWNIFILE NAME"; 

1350 MEt=MEt+It 

Fit 

1360 PRINT CHRtl147)"FREE 

1010 PRINT"EDOWN] 

MEMQRY="FM-LEN(MEt)" BYT 

LOADING TEXT" 

ES" 

1020 SYS 679,FI$,DE,40960 

1365 PRINT M$:PRINT ME* 

1030 FIt=FIt+".T" 

:GOTO 1300 

1040 PRINT"LOADING ADDRESS 

1370 RETURN 

TABLES" 

1380 REM 

1050 SYS 679,FIt,DE,51968 

1390 REM SET CURSOR TO X,Y 

:GOTO 190 

1400 REM 

1060 REM 

1410 POKE 781,Y: POKE 782,X 

1070 REM DEVICE 

: POKE 783,0: SYS 65520 

1080 REM 

: RETURN 

1090 PRINT CHR$(147)"CURRENT 

1420 REM 

STOREAGE DEVICE IS'DE 

1430 rem mntmtmn 

1100 INPUT"CD0WN3DEVICE";DE 

1440 REM » TEXT EDITOR t 

1110 GOTO 80 

1450 rem tnmttmmt 

1120 REM 

1130 REM CHECK UPPER AREA 

m 



The important features of 
the example are: 

Line 10 - protects the data 
bases. 

Lines 20-46 - Load the data 
bases. 

Line 50 - Sets up the colours 
and the location number (LO). 
Line 55 - Tells you where you 
are i.e. performs LOOK. 

Line 60 - Requests a command 
Line 70 - Checks for an unrec¬ 
ognised command and clears 
the command area of the 
screen prior to requesting a 
new command. 

Line 80 - Extracts the key words. 
Note that the noun number 
must be decremented to be 
compatible with the object 
routine. (Nouns are numbered 
from 1 to 255 and objects from 0 
to 254) 

Line 90 - Performs verb 

Note how the Take and 
Drop commands simply 
change the object position 
table. Location 50163 is an error 
flag for the object routine. If it 
contains 255, then it means that 
nothing was found (see lines 
170 and 210). 


I hope this example will 
show how simple these 
routines are to use and how 
compact routines become. 

Whilst l ; ve tried to ensure 
complete compatibility 
between the three editors, 
Murphy's Law will guarantee 
that I will have missed some¬ 
thing somewhere. To ensure 
insanity-free work, I re¬ 
membered the following 
precautions. 

1. Before starting work with an 
editor and after using another 
editor: 

Save your latest database 
Reset the machine with SYS 
64738 

Load the machine code 

2. Regularly save your data 
base. 

3. Work out what the database 
will contain before starting 
work. 

If you have any queries, 
study the editors, you should 
be able to sort them out. If you 
have any real problems, you 
can reach me via Your 
Commodore. 




PROGRAM: LISTING 3 

:PRINT*[BLACK3" 

30 PRINT CHR*(147):T=4:X=10 
:GOSUB 150:PRINT"OBJECT 
EDITOR" 

40 Y=6:X=10:6OSUB 150 
:PRINT"1. ENTER OBJECT" 

10 PRINT CHR*(147):DE=8 
:G0SUB 338 

20 POKE 53280,12:P0KE 53281,15 



























CG4 


50 Y=7:X=1#:B0SUB 150 
:PRINT"2. TEST TABLES" 

60 Y=8:X=10:SOSUB 150 
:PRINT*3. CLEAR TABLES" 

70 Y=9:X=10:6QSUB 150 
:PRINT"4. PRINT TABLES" 

B0 Y=10:X=10:BOSUB 150 
:PRINT"5. SAVE TABLES" 

90 Y=ll:X=10:6OSUB 150 
:PRINT"6. LOAD TABLES" 

100 Y=12:X=10:GOSUB 150 
:PRINT"7. CHANGE DEVICE" 
110 Y=13:X=10:GOSUB 150 
:PR1NT"8. CHANGE LOCATION" 
120 GET It:IF I«"l"OR I»>"8* 
THEN 128 

130 ON VAL(I$) GOSUB 160,250, 
330,380,500,560,620,630 
148 60T0 28 

158 POKE 781,Y:POKE 782,X 
:POKE 7B3,8:SYS 65520 
sRETURN 

160 PRINT CHRK147) :OB=0 

165 IF PEEK(50176+OB)<>0 AND 
OB<255 THEN OB=OB+l 
:GOTO 165 

166 PRINT’NEXT AVAILABLE ENTR 
Y ="OB 

170 INPUT "WORD (16 CHARS HAX 
)";NO$ 

180 IF LEN(N0$H16 THEN NO$=N 
Of+" ":60T0 180 
198 NA=34304+OB*16-1 
288 FOR 1=1 TO 16: POKE NA+I, 
ASC!HID$(NQf ,1,1)):NEXT 
218 PRINT"IDOWN]PLACED IN TAB 
LE* 

228 PRINT"IDOWN 3 LOCATION OF 
"HO*" *;:INPUT LO 
238 POKE 50176+OB,LO 
248 RETURN 
258 PRINT CHR$ (147) 

:INPUT "LOCATION";LO 
268 PRINT" EDOHN3AT LOCATIONS 
0" I CAN SEE" 

270 STS 49920,LO 
288 IF PEEK (58183) =255 THEN P 
RINT’IDONNINOTHING" 

298 Y=15:X=8:G0SUB 158 
:PRINT * ISPC2,RVSON,SPC9] 
PRESS t TO EXITESPC113" 

308 GET It:IF If=’"THEN 298 
318 IF IfOTTHEN 258 
328 PRINT CHR$(147);sRETURN 
330 PRINT CHR$(147)"CLEARING 
TABLES...." 

340 FOR 1=8 TO 255 
: POKE 58176+1,®:NEXT 
350 PR I NT" I DOWN 3 CLEAR IN6 TEXT 
368 FOR 1=34384 TO 38399 


sPOKE 1,8sNEXT 
370 RETURN 

388 PRINT CHRt(147):NN=0 
398 IF PEEK(58176+MN)=8 THEN 
470 

488 HA=34384+HN816-1 
:PRINT"OBJECT"NN'..."; 

418 FOR 1=1 TO 16sPRINT CHR$( 
PEEK(NA+I));:NEXT 
:PRINT" AT LOC’PEEK(58176+ 
HN) 

428 NN=NN+1:IF NN=255 THEN 398 
430 IF INT(HN/28) ONN/20 THEN 
398 

440 Y=22 s X=8 s 60SUB 150 
:PR 3 NT"[SPC2,RVSON,SPC9 3 
PRESS t FOR HORECSPC103" 

450 GET I$:IF I$<>"t"THEN 458 
468 PRINT CHRK147)sGOTO 398 
478 Y=22:X=0:GOSUB 150 
:PRINT * ISPC2,RVSON,SPC9] 
PRESS I TO EXITESPC103" 

488 GET 1$:IF I$<>*t"THEN 488 

498 RETURN 

508 PRINT CHR$(147) 

:INPUT’FILE NAHE";FI* 

518 PRINT'EDONN3SAVIN6 TEXT.. 

I 

520 SYS 50688 FI$,DE,2,34304, 
38399 

538 PRINT"ID0NN3SAVING TABLE. 

...":FI$=FIt+*.T" 

548 SYS 50688 FI$ ,DE,2,58176, 
58431 

558 RETURN 
568 PRINT CHRf(147) 
sINPUT’FILE NAHE";FI$ 

570 PRINT’LOADING TEXT...." 

588 SYS 679,FI$,DE,34384 
590 PRINT"LOADING TABLE...." 

:FI$=FI$+".T" 

680 SYS 679,Fit,DE,58176 

610 RETURN 

628 PRINT CHRK147) 

sINPUT"DEVICE";DE:RETURN 
630 PRINT CHRK147) 

:INPUT"NORD NUMBER";NN 
648 PRINT’IDQNNI* 

658 NA=34384+NNtl6-l 
:PRINT"OBJECT"NN"..."; 

668 FOR 1=1 TO 16sPRINT CHR$( 
PEEK(NA+I));sNEXT 
sPRINT" AT LOC’PEEK(58176+ 
HN) 

678 INPUT"EDONN23NEW LOCATION 
";L0 

688 POKE 58176+NN,L0 s RETURN 
698 REHtmmmmm 
700 REM OBJECT EDITOR » 

718 RENmmmmmt 
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commodore 

If you’re as Impressed as we are with the new Commodore 128 
computer, you’ll be even more Impressed with the new software 
that’s available for it now! Already we’re shipping SuperBase 128 
(£ 09*6 £64.95), Superscript 128 (£7**fr £69.95), VlzaWrlte 128 
Classic (£69*6 £89.00), VlzaStar 128 ( £i ao * 6 £115.00) and now 
Basic and C compilers (Pascal ready soon)... so watch this space! 


■ Commodore 128 computer £269 .95 ■ 1900M monitor 40/80 mono £99 .95 

■ Commodore 128D computer £499 .95 ■ 1901C monitor 40/80 colour £299 .95 

■ 128D computer with monitor £573 .85 ■ Serial or Parallel Interfaces £29 .95 

■ Commodore 128 ♦ 1570 £449 .95 ■ 128/IEEE + Parallel Interface £79 .95 

■ Commodore 1570 disk drive £199 .95 ■ Printers ... supplied to order 

FREE book ‘Anatomy of the 128’ or £lO software voucher with every order over £l 00! 
FREE delivery, UK mainland. Please allow 5 days, and phone to confirm price/availability. 



f 


Transform your Commodore 64 into a full 
featured professional database system, 
with up to 1000 characters per record on 
up to four screens... and up to 128 Items 
per record, definable as key, text, numeric, 
result or date... in files of up to 16 million 
characters! SuperBase 64 even has calculator and calendar functions, easy Input 
from word processor or data files, both menu-driven and program control, sorting 
and searching, fully definable report and screen formats... Superbase 64 is essential 
if you want the most from your 64! Supplied on 1541 disk with excellent tutorial 
and reference manual, plus audio learning tape... 



For C64 and PLUS 4 £70*9 £54.95! For C128 £*9*5 £64.95! 



Although we fire by far the largest UK retailer of SuperBase, VizaStar 
and VizaWrite for the Commodore 64, for over five years we have also 
supported the best software for the Commodore business computers! 
So if you have a CBM/PET 3000, 4000, 8000, 700 or PC, then don’t 
forget us... we haven’t forgotten you! Why not phone or write for our 
CBM/PET catalogue, and find out all about the products listed below. 
(When ordering, please quote your computer & disk model number.) 


■ VizaWrite 

CBM PC 

£269.00 


■ Delta 

CBM PC 

£569.25 

■ Superscript 

8096,8296,700 

115.00 


■ DMS 

3032,4032,8000 

224.25 

■ Superscript 

3/4/8000 

86.25 


■ DTL Compiler 

3/4/8000,700 

114.43 

■ SuperBase 

8096,8296,700 

115.00 


■ PM96 

8096,8296 

69.95 

■ SuperOffice 

8096,8296,700 

230.00 


■ 96K upgrade 

8032 

345.00 

■ SuperSpell 

3/4/8000 

37.50 


■ Master 

4032,8000,700 

125.00 

■ Calc Result 

CBM PC 

316.25 


■ KRAM 

3032,4032,8000 

59.95 

■ Calc Result 

700 

258.75 


■ Command-o 

4000,8000 

50.00 

■ Calc Result 

8000 

228.85 


■ Disk-o-pro 

3000 

40.00 


VizaWrite Classic 128 is a much enhanced successor to the 
best-selling VizaWrite 64, which THE TIMES featured in three 
articles, calling it ‘a creative writer’s dream!’ VizaWrite Classic 
is certainly the best wordprocessor we’ve yet seen on any 
computer, ever! Written specially for the 128, VizaWrite Classic 
makes maximum use of the speed, memory and 80-column 
display, showing your document exactly as It will be printed... 
it includes a 30,000 word dictionary, massive 55K text area, proportional printer support 
plus bullt-ln NLQ fonts for CBM/Epson type printers, easy-to-use ‘pull-down’ menus, 
full function calculator, ‘newspaper style’ columns, mall merge... and much, much more! 



■ VIZAWRITE‘CLASSIC’128 £96*6 £89l VIZASTAR 128 £499*5 £ 1 1 5l 

■ VIZAWRITE 64 ‘PROFESSIONAL’ (includes VIZASPELL) £66*6 £79.95! 

■ VIZAWRITE 64 (disk) £76*6 £59.95! (cartridge) £66*6 £78.95! 

■ VIZASTAR 64 (XL4) £66*6 £74.95! VIZASTAR 64 (XL8) £466*6 £99.95! 


Are you a two- 
flnger typist? 
Then why not let 
SuperType help 
you learn to touch- 
type the fast and easy way... with your 
computer as the teacher! All the family can 
learn this useful skill, at their own pace... 
and profit from the very latest computer- 
aided training and feedback techniques! 

ON TAPE £46*6 £16.95! 

ON DISK £66*6 £21.95! 


The Anatomy of the 128 

With nearly 500 information-packed pages, 
this Is THE book to get about your new 
Commodore 128... the Insider’s guide 
to the secrets of this powerful computer! 

Fully documented ROM listings of both Basic 
and the Kernal... memory maps... zero-page 
listings... ports, interrupts, boot routines... 
SID, VIC, Z80 & 80-column chips... memory 
management... assembly code... enlarging the 
screen ... 640 x 200 graphics... all this & much 
more for only £12.95! (Allow 5 days delivery) 



■ Simon’s Basic (cart) 

£50.00 £35.00 


■ Super Basic (64 + 128) 

£49*5 £44.95 

■ PetSpeed 64 

■50.00 

34.95 


■ Super C (64 + 128) 

•64.95 

59.95 

■ Oxford Pascal 64 

-49.95 

42.95 


■ SuperBase 128 

-99.95 

64.95 

■ Oxford Pascal (tape) 

-99,95 

19.95 


■ Superscript 128 

-79,95 

69.95 

■ JetPack 64 

-99,95 

29.95 


■ Script 128 


49.95 

■ JetPack (tape) 


14.95 


■ Cl 28 Tricks & Tips (book) 

12.95 

■ Super Pascal 64 

-64.95 

59.95 


■ SuperBase 64 

-79.95 

54.95 

■ Assembler/monitor 64 

-49*9 

16.95 


■ SuperBase Starter 64 

-99.-95 

29.95 

■ PowerPlan 64 

-44:09 

38.95 


■ Superscript 64 

-69,95 

58.95 

■ Practicalc II 

69.95 

49.95 


■ SuperType 64 

-95,95 

21.95 

■ Master 64 

-69*0 

39.00 


■ SuperType (tape) 

-4*95 

16.95 


WANT IT TOMORROW??? CALL US TODAY!!! ON 01-546-7256 

Prices Include VAT and POSTAGE 
and are correct on going to press. 

Order by post or phone, using 
cheque, Access, Barclay/VIza or 
postal order. Despatch Is by same 
day 1st CLASS post Product data 
available on request or phone for 
advice If In doubt [REF A38] 


LAKESIDE HOUSE, KINGSTON HILL, SURREY, KT2 7QT. TEL 01-546-7256 

















































C-1 6/ r Plus/4 


joe Nicholson 
continues his series 
with a Sound 
Synthesiser for the C- 
16 and Plus/4. 


SOMETIME AGO, IN MYART- 
icle on sound, I promised to 
explain how to simulate the 
attack, decay, sustain and 
release functions of a sound 
synthesiser. At last, tweeked 
and tuned up to perfection, I 
proudly present The Sound 
Synthesiser which incorporates 
not only these functions, but 
also a host of other facilities 
including a second channel, 
rests, hand claps, a sound com¬ 
piler and a waveform editor. 

I shall start by explainingthe 
similarities to the PLAY 
command presented in the 
article on sound (December 
1985). Like the PLAY command 
it is interrupt driven, meaning 
that the tune can be playing 
while the computer is engaged 
in some other task, playing a 
game or editing a waveform for 
instance. It plays the tune by 
reading along a list of numbers 
held in memory which contain 
the pitch and duration of each 
note, in the sequence that the 
notes will follow. Commands 
such as volume, go to chorus, 
return and turn tune off can 
also be included in the list. 
Pitch values for a range of 
musical notes are given in 
Appendix D of the C-16 User 
Manual on page 173. 

Now for the differences. 
The main feature is WAVE¬ 
FORM SOUND. It works by 
continuously altering the 
volume of the note once every 
1 /50th of a second from a list 
stored in memory. When each 
new note is played, the synth¬ 
esiser starts at the beginning of 
the table setting the volume to 
the first number. A 1/50th of a 
second later the synthesiser 
reads the next byte along the 
list and adjusts the volume to 
that number. The process 
continues for the duration of 
the note until a new note is 
played, changing the volume 
of the note from the very 
beginning all the way through 
until it dies away; when the 
process repeats itself. The list 


Programming 



can be stored anywhere in 
memory, although the table 
must begin at an address which 
is a multiple of 256 and must be 
256 bytes long. 

As the volume is in the 
range zero to eight, only nine 
different volume settings are 
allowed. It is still possible, 
however, to make a very 
convincing envelope with 
attack, decay sustain and 
release as shown in the diagram 
below. The attack part of the 
waveform covers the rise in 
volume from zero to peak 
value. The fall in volume after 
the peak is called the decay. 
The midrange volume is called 
the sustain level and the final 
fall in volume from sustain to 
zero is called the release. 

The parameters attack, 
decay, sustain and release can 
be applied to any sound. Con¬ 


sider the sound of a piano for 
instance. When the string is 
first struck by the hammer, the 
volume of the note quickly 
rises to peak level, therefore its 
attack rate is quite high. The 
volume then quickly falls to a 
lower value signifying a high 
decay rate and then sustains at 
this level for a while before 
dying away fairly slowly, which 
means it has a low release rate. 
The sound of a clarinet or other 
woodwind instrument is very 
different however. In this case 
the volume of the note rises 
slowly to peak value meaning it 
has a low attack rate. The 
volume then sustains for the 
remainder of the note and is 
followed by a rapid release. 

The Sound Synthesiser 
allows more than one wave¬ 
form to be in memory at the 
same time and also has the 


facility to switch from one 
waveform to another while the 
tune is being played thus sim¬ 
ulating different instruments. 
Memory has been set aside for 
two waveforms, although more 
can be accommodated by 
raising the start of the Basic 
area or lowering the top of this 
area to create extra space for 
waveform sound (as explained 
in the September 1985 issue of 
Your Commodore). Lowering 
the top of Basic by IK would 
reserve enough space for four 
more waveforms. A waveform 
editor program and a demon¬ 
stration waveform have also 
been included. 

The other main difference 
between this program and the 
PLAY command is the facility to 
play tunes using both channels. 
This enables harmonies and 
backings to be put into the 


















































































































tune, along with such sounds as 
hand claps and steam trains if 
channel two is set to noise! 
Channel one still sets the pace 
of the tune, with the backing 
note in channel two being 
changed at various points 
along the tune. This will be 
demonstrated in a tune called 
Joe's theme (!) later on. 

As well as playing backing 
notes channel two can add a 
chorus effect to the sound. This 
is done by taking the pitch of 
the note in channel one and 
playing exactly the same pitch 
in channel two but with a small 
constant value added to the 
pitch. This has the effect of two 
notes in 'harmony' by using an 
effect known as beating. This 
effect was used to play God 
Save the Queen in demo one of 
my article on graphics modes 
published in the March 1986 
issue. A command to create this 
effect is provided in the 
synthesiser. Channel two also 
has the facility for turning itself 
off automatically a preset time 
after it is turned on instead of 
carrying on indefinitely - 
useful for hand claps, etc. 

The other addition to the 
PLAY command is the facility 
for rests and pauses. In the 
PLAY command all notes 
tended to merge together and 
there was no facility for pausing 
the tune for rests etc. The 
Synthesiser allows the tune to 
pause for 1/50th second right 
up to 20 minutes. It also allows 
the second (backing) channel 
to either continue while the 
first channel pauses or for both 
channels to be turned off for 
the duration of the pause with 
the backing being turned on 
again after the pause. 

The Synthesiser 

The new assembly language is 
shown in Figure 2. If you wish 
to type it straight in use my 
'C-16 Assembler' published in 
the June 1985 issue of Your 
Commodore. To date this isthe 
only text assembler available 
for the C-16. If you don't have 
the assembler, the machine 
code is shown in DATA state¬ 
ments in Figure 3 complete 
with a suitable loader. The 
synthesiser code starts at 
address 4096 ($1000 hex) and 
occupies 512 bytes. The start of 
Basic should therefore be 
moved up before loading the 
assembler or the machine 
code. If the start of Basic is 


Figure 2 

PROGRAM; SYNTHTEXT 


10000 ;THE SOUND SYNTHESISER 
10010 ; (01986 JOE NICHOLSON 
10020 ; 

100S0 0R6 $1000 
10100 ;TURN ON 


10110 

: ON 

SEI 

10120 

LDA 

**42 

10130 

STA 

$314 

10140 

LDA 

#$10 

10150 

STA 

$315 

10160 

LDA 

*$20 

10170 

STA 

$D7 

10180 

LDA 

#$00 

10190 

STA 

$DA 

10200 

STA 

$E0 

10210 

STA 

$E1 

10220 

STA 

$DC 

10230 

STA 

$DD 

10240 

LDA 

$FF11 

10250 

AND 

#$7F 

10260 

STA 

$FF11 

10270 

LDA 

($FE 

10280 

STA 

$04FC 

10290 

STA 

$04FE 

10300 

CLI 


10310 

RTS 


10390 

• 

J 


10400 

;TURK OFF 

10410 

:QF 

SEI 

10420 

LDA 

$FF11 

10430 

AND 

#$8F 

10440 

STA 

$FF11 

10450 

LDA 

#$0E 

10460 

STA 

$0314 

10470 

LDA 

»$CE 

10480 

STA 

$0315 

10490 

CLI 


10500 

RTS 


10590 

• 

J 


10600 

5 PLAY CONTROL 

10610 

0R6 

$1042 

10700 

:PL 

LDA $04FC 

10710 

CMP 

#$FF 

10720 

BEQ 

R:P2 

10730 

sP5 

LDA $E0 

10740 

BEQ 

R: EX 

10750 

LDY 

#0 

10760 

LDA 

$FF11 

10770 

AND 

#$F0 

10780 

ORA 

($DE),Y 

10790 

STA 

$FF11 

10800 

INC 

$DE 

10810 

: EX 

JMP 4CE0E 


10890 

• 

f 

11490 

sPB CMP #$FC 

10900 

5 READ NEXT THREE BYTES 

11500 

BNE R:P9 

10910 

:P2 LDA $E1 

11510 

LDA $FF11 

10920 

BEQ R:PK 

11520 

AND *240 

10930 

LDA $FF11 

11525 

ORA $D3 

10940 

ORA $E1 

11530 

STA $FF11 

10950 

STA $FF11 

11540 

:PM CLC 

10960 

LDA #$00 

11550 

BCC R:P2 

10970 

STA $E1 

11590 

• 

f 

10980 

:PK LDY *$00 

11600 

;NOISE/MUSIC 2ND CHANNEL 

10990 

LDX #$00 

11610 

iP9 CMP #$FB 

11000 

:P3 LDA ($D0),Y 

11620 

BNE R:PA 

11010 

STA $D2,X 

11630 

LDA $D3 

11020 

INY 

11640 

CMP #2 

11030 

INX 

11650 

BEQ R:N1 

11040 

TXA 

11660 

LDA #$40 

11050 

CMP #3 

11670 

BNE R:N0 

11060 

BNE R:P3 

11680 

:N1 LDA #$20 

11070 

LDA $D0 

11690 

:N0 STA $D7 

11080 

ADC *2 

11700 

CLC 

11090 

STA $D0 

11710 

BCC R:PM 

11100 

BCC R:P4 

11790 

• 

J 

11110 

INC $D1 

11800 

;SET 2ND CHANNEL DEVIATION 

11190 

• 

J 

11810 

:PA CMP i$FA 

11200 

;0FF 

11820 

BNE R:PB 

11210 

:P4 LDA $D2 

11830 

LDA $D3 

11220 

CMP #$FF 

11840 

STA $D8 

11230 

BNE R:P6 

11850 

LDA $D4 

11240 

JSR :OF 

11860 

STA $D9 

11250 

:PX CLC 

11870 

ORA $D3 

11260 

BCC R:EX 

11880 

STA $DA 

11264 

• 

J 

11890 

BNE R:PM 

11265 

;60SUB 

11900 

BEQ R:PR 

11270 

sP6 CMP #$FE 

11990 

• 

f 

11280 

BNE R:P7 

12000 

I OFF CHANNEL 2 

11290 

LDA $D0 

12010 

!PB CMP i$F9 

11300 

STA $D5 

12020 

BNE R:PC 

11310 

LDA $D3 

12030 

iPR LDA $FF11 

11320 

STA $D0 

12040 

AND #$9F 

11330 

LDA $Di 

12050 

STA $FF11 

11340 

STA $D6 

12060 

CLC 

11350 

LDA $D4 

12070 

!PO BCC R: PM 

11360 

STA $D1 

12090 

• 

> 

11370 

CLC 

12100 

{SECOND CHANNEL 

11380 

BCC R:P2 

12110 

:PC CMP #$F8 

11390 

1 

J 

12120 

BNE R:PD 

11395 

;RETURN 

12130 

LDA $D3 

11400 

:P7 CMP #$FD 

12140 

STA $FF0F 

11410 

BNE R:P8 

12150 

LDA $D4 

11420 

LDA $D5 

12160 

STA $FF10 

11430 

STA $D0 

12170 

LDA $DC 

11440 

LDA $D6 

12180 

STA $04FD 

11450 

STA $D1 

12190 

LDA $DD 

11460 

CLC 

12200 

STA $04FF 

11470 

BCC R:P2 

12210 

LDA $FF11 

11475 

• 

> 

12220 

AND »$9F 

11480 

$ VOLUME 

12230 

ORA $D7 
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12240 

STA IFF11 

12910 

sPH 

CMP l$F3 

12250 

BNE R:PM 

12920 

BNE 

R: PJ 

12290 

i 

f 

12930 

LDA 

IFFll 

12300 

;SET INTERVAL FOR 

12940 

TAX 


12310 

; SECOND CHANNEL 

12950 

AND 

*$60 

12320 

:PD CUP #$F7 

12960 

STA 

$E1 

12330 

BNE R:PE 

12970 

TXA 


12340 

LDA $D3 

12980 

AND 

#$8F 

12350 

ORA ID4 

12990 

STA 

$FF11 

12360 

BNE R:N2 

13000 

LDA 

$D3 

12370 

STA tDC 

13010 

EOR 

l$FF 

12380 

STA IDD 

13020 

STA 

$04FC 

12390 

BEQ R:P0 

13030 

LDA 

$D4 

12400 

:N2 LDA $03 

13040 

EOR 

#$FF 

12410 

EOR #$FF 

13050 

STA 

$04FE 

12420 

STA $DC 

13060 

JMP 

$CE0E 

12430 

LDA $D4 

13090 

0 


12440 

EOR *$FF 

13100 

iMAIN ROUTINE 

12450 

STA $DD 

13110 

: PJ 

EOR i$FF 

12460 

CLC 

13120 

STA 

I04FC 

12470 

BCC R:PG 

13130 

LDA 

l$FF 

12490 

• 

J 

13140 

STA 

$04FE 

12500 

|ON/OFF WAVEFORM SOUND 

13150 

LDA 

*0 

12510 

sPE CMP i$F6 

13160 

STA 

IDE 

12520 

BNE R:PF 

13170 

LDA 

$D3 

12530 

LDA $D3 

13180 

ORA 

$D4 

12540 

STA $E0 

13190 

BNE 

R:PP 

12550 

BNE R:N3 

13200 

LDA 

IFFll 

12560 

LDA $FF11 

13210 

AND 

IIEF 

12570 

AND «$F0 

13220 

STA 

IFFll 

12580 

ORA $DB 

13230 

iPQ 

JMP ICE0E 

12590 

STA iFFll 

13250 

:PP 

LDA IFF 12 

12600 

CLC 

13260 

AND 

*252 

12610 

BCC R:PQ 

13270 

ORA 

ID4 

12620 

:N3 LDA »FF11 

13280 

STA 

IFF 12 

12630 

AND t$0F 

13290 

LDA 

ID3 

12640 

STA $DB 

13300 

STA 

IFF0E 

12650 

CLC 

13310 

LDA 

IFFll 

12660 

BCC R:P0 

13320 

ORA 

*110 

12690 

• 

13330 

STA 

IFFll 

12700 

;SET WAVE NUMBER 

13340 

LDA 

IDA 

12710 

:PF CMP i$F5 

13350 

BEQ 

R:PQ 

12720 

BNE R:PG 

13360 

CLC 


12730 

LDA $D3 

13370 

LDA 

ID3 

12740 

STA IDF 

13380 

ADC 

IDS 

12750 

CLC 

13390 

STA 

IFF0F 

12760 

BCC R:P0 

13400 

LDA 

ID4 

12790 

• 

f 

13410 

ADC 

ID9 

12800 

iJUMP TO USER ROUTINE 

13420 

STA 

IFF10 

12810 

:PG CMP l$F4 

13430 

LDA 

IFFll 

12820 

BNE R;PH 

13440 

ORA 

♦D7 

12830 

JSR :N4 

13450 

STA 

IFFll 

12840 

CLC 

13460 

LDA 

IDC 

12850 

BCC RiPO 

13470 

STA 

I04FD 

12860 

:N4 JMP ($D3) 

13480 

LDA 

♦DD 

12890 

• 

> 

13490 

STA 

I04FF 

12900 

;PAUSE ALL 

13500 

JMP 

ICE0E 

■ 


moved up by 2K, space for two 
waveforms and IK of tune is 
also set up - see Figure 4. IK is 
usually enough for a tune of 
reasonable length as only three 
bytes are used per note or 
command. If more space is re¬ 
quired for the tune then the 
start of Basic should be moved 
up accordingly. 

To move the start of Basic 
up by 2K enter the following: 

POKE 6144,0:POKE 44,24:NEW 

To move start of Basic up by X 
Kbytes enter: 

POKE 4096+X *1024,0: POKE 
44,16+X*4:NEW 

The tune does not have to 
start at address 5120, in fact the 
tune can start anywhere and 
any number of different tunes 
can be stored anywhere in 
memory to the limit of the 
space available. 

When the Synthesiser 
assembly text or DATA 
statements have been typed in, 
SAVE it before going 'any 
further as you may have made a 
mistake. Run the assembler/ 
loader and correct any errors. 
Then SAVE the machine code 
by entering the monitor, i.e. 
MONITOR + return. Then type 
in: S“name”,01,1000,1200 to 
save the Synthesiser; S“name”, 
01,1200,1400 to save the 
waveforms, where S signifies 
SAVE,01 signifies tape and 
$1000 and $1200 are the start 
address and the (end 
address+1). 


The Program in Detail 

Lines 10100-10310 turn the syn¬ 
thesiser on. This redirects the 
keyboard interrupt, which is 
called 50 times/sec, to enter 
the Synthesiser at line 10700. It 
also sets up the system variables 
to start playingthetune. Before 
this command is called the 
registers $D0 and $D1 (208 and 
209) should be set to contain 
the low and high byte respect¬ 
ively of the start of the tune. If 
the Synthesiser and the tune 
are in their normal positions 
type: 

POKE 208,0:POKE 209,20:SYS 
4096 to start the tune. 

Lines 10400-10500 turn the Syn¬ 
thesiser off. This redirects the 
keyboard interrupt vector to its 


normal value of $CE0E located 
in the ROM. Turning the Syn¬ 
thesiser on again means that it 
carries on from where it left off. 
Lines 10600-10700 is where the 
program is called every 1/50th 
second. If it is time for a new 
note, it will jump to line 10910. 
Lines 10730-10800 control the 
envelope of the sound, 
assuming waveform sound has 
been selected. Line 10810 
jumps back into the keyboard 
routine. 

Lines 10900-11110 read the next 
command (three bytes) into 
memory and move the pointer 
on three bytes. 

If the first byte of the three 
is between $00 and $F3 it treats 
this byte as a duration and the 
next two bytes as a pitch for a 
note in channel one. If the first 
byte is between $F4 and $FF 
however, it treats the three 
bytes as a command and acts 
upon each as follows: 

Lines 11200-11260 Command: 
OFF. 

First byte $FF; compiler 
command OF; format OF,0 
This turns the tune off. Make 
sure to include one of these at 
the end of the tune. 

Lines 11265-11380 Command: 

GOSUB/GOTO 

First byte $FE; compiler 

command GO; format 

GO,label 

This is a type of GOSUB instruc¬ 
tion. It jumps to the address 
stored in the frequency bytes. 
It also stores the old pointer 
address in memory allowing 
the tune to return, so that tunes 
can save subroutines although 
nesting is not allowed. This can 
also be used as a GOTO 
instruction. 

Lines 11390-11470 Command: 
RETURN 

First byte $FD; compiler 
command RE; format RE,0 
This is the return instruction 
which makes the Synthesiser 
resume after the last GOSUB 
instruction. As with a number 
of these instructions the fre¬ 
quency bytes must be present 
but are not used. They can have 
any value, preferably zero. 
Lines 11480-11580 Command: 
VOLUME 

First byte $FC; Compiler 
command VO; Format VO,0-8 
This can be used to change the 
volume inside a tune. 

Lines 11600-11700 Command: 
Set 2nd channel 
First byte $FB; Compiler 
command S2; format S2,2 or 3 
The second channel can be 
either noise or music; two for 
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music and three for noise as per 
C-16 SOUND command. 

Lines 11800-11900 Command: 
2nd channel deviation 
First byte $FA; Compiler 
command DE; format DE,0- 
65535 

This sets the deviation of the 
second channel for chorusing 
as explained earlier. Any value 
greater than zero will make the 
second channel play automati¬ 
cally with channel one, adding 
the deviation to the pitch. Note 
that the command DE,1 adds 
one to the pitch and that 
DE,5535 subtracts one from the 
pitch. Large values such as DE,40 
make channel two sound com¬ 
pletely off key. DE,0 turns off 
deviation mode. 

Lines 12000-12070 Command: 
OFF 2nd channel 
First byte $F9; Compiler 
command X2; format X2,0 
Switches channel two off. 

Lines 12100-12250 Command: 
2nd channel 

First byte $FB; Compiler 
command C2; format C2,0- 
1024 

This turns the second channel 
on using the pitch in the two 
frequency bytes and the 
duration set up by the Set 
Interval command. 

Lines 12300-12470 Command: 
Set Interval 

First byte $F7; Compiler 
command SI; format SI,0-65535 
This alters the duration of the 
second channel in 1/50th 
second steps. The command 
Sl,0 will make channel two play 
continuously after being 
turned on. 

Lines 12500-12660 Command: 
ON/OFF waveform sound 
First byte $F 6; Compiler 
command TW; format TW,0 or 
1 

Turns waveform sound on/off. 
TW,1 turns on waveform sound 
storing the previous volume 
level. TW,0 turns off waveform 
sound restoring volume level. 
Lines 12700-12760 Command: 
Set wave number 
First byte $F5; Compiler 
command WA; format WA,0- 
255 

This selects the waveform to be 
used. The number is the high 
byte of the start address of the 
waveform. In its normal mode 
there are two waveforms 
available: WA,18 and WA,19. 
Lines 12800-12860 Command: 
Jump to user routine 
First byte $F4; Compiler 
command MC, format MC,0- 
255 



This allows the user to create 
extra commands for the synth¬ 
esiser. One of its most impor¬ 
tant uses would be to call a 
routine which sets a flag to 
signify when the tune has 
reached that point so that an 
arcade game could be 
synchronised with the tune. At 
the start of each routine make 
sure you disable interrupts (SEI) 
and enable them (CLI) at the 
end of the routine. Use RTS to 
return to the Synthesiser. This is 
the only routine in the 
Synthesiser which cannot be 
easily relocated because of the 
JSR to a fixed address in line 
12830. 

Lines 12800-13060 Command: 
Pause All 

First byte $F 3; Compiler 
command PA; format PA,1-255 
This pauses both channels from 


6144 



5120 

4864 

4608 


4096 


1024 BYTES 
FOR TUNE 


2nd WAVEFORM 


1st WAVEFORM 


512 BYTES FOR 
SYNTHESISER 


Figure 4: Memory map 


i 


I 


$1800 


$1400 

$1300 

$1200 


$1000 


1/50th second to 20 minutes. If 
the backing was on before the 
pause it will be on again after 
the pause. 

Lines 13000-13500 
This is the main routine for 
notes going to channel one. If 
the deviation is on it also sets 
up channel two. 

The Compiler 

One of the greatest improve¬ 
ments over the original PLAY 
command routine is the 
inclusion of a special two-pass 
music compiler which greatly 
simplifies the problems of 
composing music. The music 
compiler listing is shown in 
Figure 5. The Hovis advertise¬ 
ment demo for the PLAY 
command was very difficult to 
write because I had to work out 
the addresses for the GOSUB 
values and look up the 
numbers for commands such as 
Volume, etc. The music 
compiler eliminates the need 
for any of this. GOSUBs and 
GOTOs are made much easier 
by the use of labels. The letters 
LA signify that a label is to 
follow and the label follows 
directly after a separating 
comma. Up to 50 labels can be 
used, which should be enough 
for even the longest tune. If 
more are required however. 


change the number inside the 
DIM statement in line 45010 to 
the desired value. Also, instead 
of having to quote the number 
of the command you want, e.g. 
252 for volume, you simply 
write VO followed by the 
volume number. The compiler, 
when run, will translate the VO 
into 252. Finally there should 
be an END instruction. An 
infinitely repeating beginning 
to Three Blind Mice would 
therefore look like this: 

DATA,LA,START,VO,7 start 
label and a volume 7 
command. 

DATA 20,685,20,643,40,596,GO, 
LA,START,END 

Play the notes in channel one 
and then loop back to the label 
called START. Tunes are now so 
much easier to read, write and 
edit that a good deal of enjoy¬ 
ment should be had in 
composing the tune. 

To compile the tune type 
RUN45000. As the compiler sets 
the pointer to the start of the 
tune, to start the tune playing 
simply type SYS4096 provided 
the synthesiser is at its normal 
position. To stop the tune type 
SYS4141. It is possible to 
compile the tune to anywhere 
in memory simply by changing 
the value of the variable D in 
line 45000 to the desired value. 
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Figure 5 

PROGRAM: COMPILER 


45000 D=DEC("1400"):SYS4141:P 
OKE208,0:POKE209,INT(D/256) 
45010 DIMA$(50) :DIMD'/.(50! 
45020 A=D;RESTQRE50000 
45030 READB4:IFB$="LA"THENREA 
DB»:A*(E)=B$:D7.(E)=A:E=E+l:GO 
TO45030 

45040 IFB$="END"THENGOTO45100 
45050 READC4:IFC4= U LA"THENREA 
DC! 

45060 A=A+3:GOTO45030 
45100 A=D:RESTORE50000 
45110 REA0B4:IFB$="END"THENPR 
INT‘OK...":END 

45115 IFBf="LA"THENREADB$:GOT 
045110 

45120 IFASC(B$)<65THENB=VAL(B 
f):G0T045125 

45122 B=256-((INSTR("OFGOREVO 
S2DEX2C2SITWWAMCPA",B4)+1)/2) 

45123 IFB=255.5THENPRINTB4"? 
INVALID COMMAND":END 


Figure 6 

PROGRAM: DEMO TUNES 


45000 D=DEC("1400"):SYS4141:P 
OKE20B, 0:POKE209,INT(D/256) 
45010 DIMAt(50):DIMDX(50) 
45020 A=D:RESTORE50000 
45030 READB4: IFB$="LA”THENREA 
DB$:A$(E)=B4:D%(E)=A:E=E+1:GO 
TQ45030 

45040 IFB$="END"THENGOTO45100 
45050 READC$: IFC$=“LA“THENREA 
DC$ 

45060 A=A+3:GOTO45030 
45100 A=D:RESTQRE50000 
45110 READB$: IFBt="END"THENPR 
INT"0K...":END 

45115 IFB$=''LA“THENREAD’B$: GOT 
045110 

45120 IFASC (B$K65THENB=VAL (8 
$):G0T045125 

45122 B=256-((INSTR("OFGOREVO 
S2DEX2C2SITWWAMCPA",B$)+1)/2) 

45123 IFB=255.5THENPRINTB$"? 
INVALID COMMAND":END 

45125 PQKEA,B:READC$:IFC$<>“L 
A"THENC=VAL(Ct):GOTO45150 


45125 PQKEA,B:READC$:IFC$<>*L 
A"THENC=VAL(C«):GOTO45150 
45130 READB*:FORF=0TOE:IFA$(F 
)=B$THENC=DX(F):GOTO45150 
45140 NEXT: PRINT*LABEL NOT FO 
UND IN a :END 

45150 PQKEA+1,C-(INT(C/256)12 
56):POKEA+2,INT(C/256):A=A+3: 
G0T045110 

200B0 DATA 2,133,208,144,2,23 
0,209,165,210,201,255,208,6,3 
2,45,16, 2066 

20090 DATA 24,144,200,201,254 

,208,19,165,208,133,213,165,2 

11,133,208,165, 2651 

20100 DATA 209,133,214,165,21 

2,133,209,24,144,180,201,253, 

208,11,165,213, 2674 

20110 DATA 133,208,165,214,13 

3.209.24.144.165.201.252.208, 

13,173,17,255, 2514 

20120 DATA 41,240,5,211,141,1 

7.255.24.144.148.201.251.208, 
17,165,211, 2279 

20130 DATA 201,2,240,4,169,64 
,208,2,169,32,133,215,24,144, 
232,201, 2040 


45130 READBt:FORF=0TOE:IFA$(F 
)=B$THENC=D%(F):60T045150 
45140 NEXT:PRINT"LABEL NOT FO 
UND IN ”:END 

45150 PQKEA+1,C-(INT(C/256)12 
56):POKEA+2,INT(C/256):A=A+3: 
GOTO45110 

50000 REM DEMONSTRATION TUNES 

50002 REM 

50003 REM WHEN THE SAINTS GO 
MARCHING IN 

50004 REM 

50005 DATALA,START,DE,0,TW,0, 
VO,5,GO,LA,SAINTS,WA,18,TW,1, 
GO,LA,SAINTS,TU,0,DE,2 
50010 DATAGO,LA,SAINTS,TN,1,6 
0,LA,SAINTS,PA,100,GO,LA,JOES 
THEME 

50100 DATALA,SAINTS,12,596,12 
,685,12,704,48,739,12,596,12, 

685.12.704.48.739 

50110 DATA12,596,12,685,12,70 
4,24,739,24,685,24,596,24,685 
,60,643 

50120 DATA12,685,12,685,12,64 

3.48.596.24.685.24.739.12.739 
,48,704,12,685,12,704 

50130 DATA24,739,24,685,24,59 
6,24,643,48,596,RE,0 
50470 REM 


20140 DATA 250,208,16,165,211 

,133,216,165,212,133,217,5,21 

1,133,218,208, 2701 

20150 DATA 214,240,4,201,249, 

208, 11,173, 17,255,41,159, 141', 

17,255,24, 2209 

20160 DATA 144,197,201,248,20 

8,32,165,211,141,15,255,165,2 

12.141.16.255, 2606 

20170 DATA 165,220,1.41,253,4, 

165.221.141.255.4.173.17.255, 
41,159,5, 2219 

20180 DATA 215,141,17,255,208 

,161,201,247,208,27,165,211,5 

,212,208,6, 2487 

20190 DATA 133,220,133,221,24 

0,202,165,211,73,255,133,220, 

165.212.73.255, 2911 

20200 DATA 133,221,24,144,187 

,201,246,208,29,165,211,133,2 

24,208,13,173, 2520 

20210 DATA 17,255,41,240,5,21 

9,141,17,255,24,144.164,173,1 

7,255,41, 2008 

20220 DATA IE, 133,219,24,T44, 
154,201,245,208,7,165,211,133 
,223,24,144, 2250 


50480 REM JOE’S THEME 
50490 REM 

50500 DATALA,JOESTHEME,TW,0, 

0,7,DE,2,GO,LA,JOE,DE,0,60,1* 
,JOE,PA,100,GO,LA,HOVIS 
50510 DATALA,JOE,C2,345,30,61 
5,10,704,20,739, C2,169,20,59: 
50520 DATAC2,383,30,704,10,71 

9,20,770,C2,262,20,643 
50530 DATAC2,383,30,704,10,71 

9,20,770,C2,262,20,643 
50540 DATAC2,453,30,739,10,77 
0,40,798 

50550 DATAC2,453,30,739,10,77 
0,20,798,C2,345,20,685 
50560 DATAC2,516,30,770,10,79 
8,20,810,PA,20 

50570 DATAC2,811,20,810,02,79 
9,20,798,C2,771,30,770 
50580 DATA10,739,30,770,10,73 
9,10,770 

50590 DATAC2,453,30,739,10,70 
4,10,685,10,643,02,169,40,596 
,RE,0 
50970 REM 

50980 REM ANTONIN DVORAK’S LA 
RGO 

50990 REM 

51000 DATALA,HOVIS,X2,0,TW,1, 
GG,LA,LARG1,GO,LA,LARG2,GO,LA 


20230 DATA 143,201,244,208,9, 

32,123,17,24,144,133,108,211, 

0,201,243, 2041 

20240 DATA 208,31,173,17,255, 

170,41,96,133,225,133,41,143, 

141.17.255, 2084 

20250 DATA 165,211,73,255,141 
,252,4,165,212,73,255,141,254 
,4,76,14, 2295 

20260 DATA 206,73,255,141,252 

,4,169,255,141,254,4,169,0,13 

3,222,165, 2443 

20270 DATA 211,5,212,208,11,1 

73,17,255,41,239,141,17,255,7 

6,14,206, 2081 

20280 DATA 173,18,255,41,252, 

5.212.141.18.255.165.211.141, 
14,255,173, 2329 

20290 DATA 17,255,9,16,141,17 

,255,165,218,240,226,24,165,2 

11,101,216, 2276 

20300 DATA 141,15,255,165,212 

,101,217,141,16,255,173,17,25 

5.5.215.141, 2324 

20310 DATA 17,255,165,220,141 
,253,4,165,221,141,255,4,76,1 

4.206.255, 2392,-1 ■ 


,LARG2,GO,LA,LARG1 
51010 DATADE,2,G0,LA,LARG1,G0 
,LA,LARG2,GO, LA,LARG2,GO,LA,L 
ARG1,OF,1 

51100 DATALA,LARG1,20,685,20, 

739,40,739,20,685,20,643,40,5 

96,20,643,20,685 

51110 DATA20,739,20,685,80,64 

3,20,685,20,739,40,739 

51120 DATA20,685,20,643,40,59 

6,20,643,20,685,20,643 

51130 DATA20,596,80,596,RE,0 

51150 DATALA,LARG2,20,770,20, 

810,40,810,20,796,20,739,40,7 

70 

51160 DATA20,770,20,810,20,79 

8,20,739,80,770,RE,0 
51200 DATAEND 
54970 REM 

54980 REM SAMPLE WAVEFORM USE 
D IN DEMO. 

54990 REM 

55000 RESTORE55010:FORA=4608T 
04653:READB:POKEA,B:NEXT: FORA 
=4654T04863:POKEA,2:NEXT:END 
55010 DATA1,2,2,3,4,4,5,6,6,7 
, 8 , 8 , 7 , 7 , 6 , 6 , 5 , 5 , 4 , 4 , 4 , 4 , 4 , 4 , 
4,4,4,4,4,4,4,4,4,4,4 
55020 DATA3,3,3,3,3,3,3,3,3,3 
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C-1 S/Plus/4 


Figure 6 shows some 
demonstration tunes. Lines 
5000-5020 create a simple 
waveform at address 4608 to 
start you going. Run 55000 
before playing the tunes. The 
demonstrations include such 
immortal classics as the Saints, 
Joe's theme and Dvorak's New 
World Symphony. No imagina¬ 
tion has been spared here, 
in fact these tunes do to music 
what Rolf Harris's Picture 
Builder did to art. I'm sure you 
can do better. 

The Waveform Editor 

The Waveform editor (Figure 7) 
allows the user to create and 
modify waveforms. Run the 
program and enter the 
waveform number (decimal 


Figure 7 

PROGRAM: WAVE EDITOR 


20000 SCNCLR:PRINT" WAVE 
FORM EDITOR",," [c UHc 
U3Cc UHc U3Cc UHc UHc UHc 
UHc UHc UHc UHc UHc U3C 
c UHc U3" 

20010 INPUT-WAVEFORM NUMBER"; 
A:B=At256:INPUT"CREATE (0 OR 
EDIT (E) WAVEFORM";A$ 

20020 D=0:IFA$="C"THENFORC=BT 
QB+255:POKEC,0:NEXT 
20030 IFA$< >"E"THEN20100:ELSE 
F0RC=BT0B+255:IFPEEK(C)>8THEN 
POKEC,8 
20040 NEXT 

20100 SCNCLR:F0RO1TQ2:PRINT" 
[DOWN][DOWN 3[DOWN][DOWN][DOWN 
3[DOWN][DOWN][D0WN3[c BHc 6] 
LC BHc @3[c BHc eiCc BHc B 
][c BHc BHc BHc @3Cc BHc 
@]Cc BHc @3[c @3Cc BHc BHc 
@3Cc BHc @3[c @3Cc BHc BH 
c BHc BHc BHc BHc BHc §3 
[c BHc @][c BHc BHc BJCc § 
][c BJCc BJCc @3"sNEXT 
20200 E=B+(DI80):FORF=0TO1:FO 
RG=0TO39s H=(8-PEEK(E+40IF+G)) 
I40+G+360IF:POKE2048+H,82 
20210 POKE3072+H,86:NEXT:NEXT 
20250 PRINT:PRINT"WAVEFORM NU 
MBER "A" ADDRESS "B,"PA6E"D 


high byte of the address of the 
waveform) then type C or E and 
return in response to Create or 
Edit or waveform? If you want 
to create a waveform the list of 
numbers will all be reset to 
zero. If you want to edit a 
waveform all the numbers 
greater than eight will be 
clipped to eight to avoid any 
errors in the operation of the 
Synthesiser. The screen is then 
cleared and the first page of the 
waveform is displayed with 
volume settings zero to eight 
on the vertical axis. The cursor 
will flash at the first position of 
the waveform. Move left and 
right using the cursor controls 
and press keys zero to eight to 
set the volume. Page one 
displays the first 80 bytes of the 
waveform. To move to the 
second line of the display press 


cursor down. There are three 
pages to cover 240 bytes of the 
waveform. Moving the cursor 
down off the bottom of the 
page will enter the next page of 
80 bytes. 

There are other functions in 
the editor which help to make 
things simpler. Pressing 
shift/P will start the synthesiser 
playing at the beginning, 
assuming the synthesiser and 
tune are stored at the normal 
positions. If they are at 
different addresses change the 
values of the first two POKEs 
and the SYS in line 20600 
accordingly. 

If a tune is stored which 
turns on waveform sound, but 
does not select a particular 
waveform, the synthesiser will 
use the waveform which is 
being edited at the time - 


hence any change in the 
waveform will have an immed¬ 
iate effect and you can set it up 
by ear! 

Other Commands 

Pressing shift/X at any time will 
turn off the tune. 

Pressing shift/R will restart the 
program enabling you to 
change waveforms. 

Pressing Q will quit the editor 
when you are satisfied with the 
waveform. This also sets the last 
16 bytes of the waveform to the 
last value at the end of page 
three. 

Shift W (wipe) will set the 
volume of all values to the right 
of the cursor to the cursor 
value and completes the 
waveform at a constant level. 


+1 

20500 F=P-(80*D):G=((8-PEEK(B 
+P))»40)+F-(INT(F/40)»40):F=( 
INT(F/40)1360}+G 
20510 PQKEF+2048,145jPQKE3072 
+F, 86 

20550 GETKEYAt:POKE2048+F, 82 

20560 IFP>0ANDA$=”[LEFT]"THEN 

3 =F-1:501020800 

20570 IFP<239ANDA$="[RIGHT]''T 

HENP=P+1:GOTO20800 

20580 IFAt=“[UP]"ANDP>39THENP 

=5-40 

20590 IFA$="[DOWN]"ANDF<200TH 
ENP=P+40 

20600 IFA$="Cs P]"THENPQKE208 
,0:PQKE209,20:P0KE223,A:SYS40 

96 

20610 IFA$="5s X3“THENSYS4141 
20620 IFA$="[s RJ*THENRUN2000 

0 

20630 IFA$="[s W]"THENH=B+P:F 
0RG*H+1TQB+255!POKEG,PEEK(H)s 
NEXT:6QTO20100 

20640 IFA$="0"THENFORG S 241T02 
55:PQKEB+G,PEEK(B+240):NEXT:P 
RINT-QK..":END 

20700 IFA$<"0"QRA$>"8"THEN208 
00 

20710 IFPEEK(B+P)=0THENPQKE30 
72+F,100:POKE2048+F,16:ELSEPC 
KE3072+F,32 

20720 POKE(B+P),VAL(A$> 

20800 G=D: D=INT(P/80): IFGODT 
HEN20100:ELSE20500 



DESCENDER ROM 

NOW FOR THE MPS-801, 1525, GP-IOOVC, OR MPS-803 

We have redesigned the character set to allow you to print out with 
true descenders. Because this is a replacement ROM your printer 
will operate exactly the same as before with no change whatever in 
the way your printer will work with any program you may use. 
Easy installation with no soldering required. Supplied with complete 
instructions. DESCENDER ROM may not fit some models of the 
1525, GP-IOOVC, and MPS-803. Phone or write for details. 

EX AM PLES: e O p 3!“' d V 


£14.95 


inc 

P/P 


qu i' 


paraqo.fi 


TOOLKIT IV 

1541 /1570 DISK UTILITY 

Includes: DOCTOR V2 - read and write any track and sector including extra 
and renumbered sectors and tracks; repair damaged sectors; look underneath 
read errors. FORMATTER - 10-second format an entire disk or format any 
individual track or half-track from 0 to 41; redefine any of 30 parameters to 
create or recreate unique disk formats. HEADER/GAP EDITOR - decodes and 
displays all header information including off-bytes and header gap; rewrite the 
entire header and header gap; renumber sectors; also edit any sector tail-gap. 
ERROR EDIT - quickly find and recreate all read errors including extra and 
renumbered tracks and sectors and half-tracks from 0 to 41; even recreates 
data under errors and allows you to redefine any necessary parameters. FAST 
DISK COPY - copies a disk in two minutes or less with a single 1541. FAST 
FILE COPY - transfers files five times faster than normal. FILE COMPACTOR - 
compacts machine code programs; can compact programs by over 50% which 
saves disk space and loading time; compacted programs run exactly the same 
as the original. DISK LOOK - sort directory; recover lost files; display file start 
and end addresses; disassemble any file with standard and undocumented 
opcodes; edit BAM; and much more. DRIVE SPEED TEST, DISK ERASE, DISK 
MON, DISK LOG, BASIC COMPACTOR/UNCOMPACTOR, &: FILE MAKER 
+ even more. 

Supplied on disk with comprehensive instruction manual. For C-64/C-128. 

OOO QC lnc Send SAE for 

p/p complete information 


MRS SOFTWARE (Dept YC) 
36 Alexandra Grove 
London N4 2LF, England 




































THE UTIUTYSPECiAUSfS 



the new generation of 

BACKUP METHODS 
IS NOW EVEN BETTER 

^unf£ NAL THAN THE " FINAL CARTRIDGE" 

the last word jn backup technology 

them y 9 °° d and thousands of satisfied customers are using 

incorporates a fewl^^r^veme^PLUSrtistven m^™ proved vers, °" of the product that 

our thorough testing could not find one sln^r^mr^' At ,!, hetime0f90in9 t0press 

Freeae Frame could not handle. (This includes A?L?hTr T res,dent ' P ro 9 ra m that 

I n.s includes ALL the latest software up to 4th March, 1986.) 

OPERATING FREEZE FRAME 

port. When the computeMs'switched'on a" mwsag^ ifdfsplted * P,U " ed int ° the cartrid 9 e 
computer back to the normal start up screen So^ ran " RETURN " wi " clear the 

completely as normal The latest version of "Freeze Fram •• •„ ° W be loaded from tape or disc 
any software to load and run norma!,y (unlike competit™ tot ° ,OUrkn ^9'-*«' 

^Then^cb’^ne^fthre^thlngs:’' 110 ° perat ' on at an T convenient point by pressing the button on it. You 

'• -or y ,„a,„r„ 

load spied. (AlsosuittHstefor LLS^M^nMchlrws^+o+lTd** ”* at s,andard ,s *> 

etc.) spec ' machines, 4040 drives, fast load cartridges, 

incorporates a higHpLTr^ ,n memor V tape. This 

THAT is ITI! 

all PROGRAMS SAVED WITH FREEZE FRAME raw 
BE RELOADED INDEPENDANTLY OF THE UTILITY 


DISC DISECTOR V4.0 


Now She fourth generation of the countries 

. ___ .omnnK have bee 


leading disc back up/utility package i s available 
- Disc Disector as the ultlmat 


of the counuiei —- 

Various' improvements have been ““S," 

weapon. Of particular import |n(amous -Evesham Nibbler" now 

Evesham Turbo Nibble' isjte late« ^ ^ (he mos , n , ghly protected discsm 

3 -* S rnlnut« n Hand* s^il'd^'ate^t types of di^^^’^'^^.^'^J^atlable for'wttlng! includ- 
the'128.) . faster back ups. Incorporates 

tion as the program progresses. 

.. D1S CO" will transfer standard speed load software to disc. 

"TRANS CD" allows you to save a fast load system to y 

"DOUBLE BACKUP ' „ a very fast ^ utilities whrch nave helped earn 

As well as these important n< ^ 0, ™\* g These inc lude Menu Maker (selective!. Fast 

=:z^ 

ONLY £29.95 

Customers wit.. ^ ^ ’ 

A „ programs are CBM ,28 and .570/7. .ompafbfe 



drc °<*T*J fec °rtD, 

° n the r ^ 1 


THE MOST FLEXIBLE BACKUP SYSTEM 
IN THE WORLD? 

Does any other utility offer all this? 
TAPE TO DISC DISC TO TAPE 

DISC TO DISC DISC TO TAPE 

PLUS the added flexibility of being able to save at 
any stage and return to that posiotion. because 
programs restart from the point where the button is 
pressed. 

An awe inspiring success rate 
Customise programs by putting in POKEs for endless 
lives, etc. and then save with those active. 

Reload independant of the cartridge 
Available now. 

ANSWER: NO 
FREEZE FRAME 

HAS NO SERIOUS COMPETITION 


the competition 


A FreZ e Zl U ‘ - Pr0dUCt alWayS S ? awns '™»tors and 
us but nerhpnc n rT*"^ "° exCept,on F°™nately for 
rh» b 1 P hap OI or the P e °P le who have purchased 
them, their mam similarity seems to be in advertising style 

mjrlly Cartridge- is a good product in many ways 
“Tc7 hen ,tc ° mes 10 making backups it is just not in the 

noTmide cLl Ffame ' Anoth ^ major drawback, 
not made dear by advertising is that saved programs can 

°* LY , re,oaded with the cartridge in situ 

(The use of the term "Freeze Frame m rhe,r advert^ 
merely an attempt to benefit from the success and 

advertising of our product | d 


tmiTfJ. h 1 S ' t S . USeS but ln lrs current form cannot be 
taken seriously as competition for "Freeze Frame 


problem 

PHYSICAL E ** 95 


""*CfiiZ aat arecn?J* 

or 

£T'°"£%; s Sr*£r 


, r t«e 

^oue/ 

Scirrje 


The tape back up device 

Doubler has 

and continues of It* typ* 

Because it is the best P* method 

that C ? P nee? t^sG Of hardware and 

w —ssaUi'--L 


is YOUR ^’Jc'pHVSI 

ffSSSSu**' 


sri-* 


ONLY £39.95 

Owners of earlier versions can return them and upgrade for £14.95 

K E c R r2^T WARNING THIS IS an EXTREMELY POWERFUL PRODUCT AMD 



FAST LOAD 

' lr _. PLUS j 

UT »tfTYCARTRIDnr 


ONLY £4.95 


software which aliqnrr«Jt^ ie tdrive 

and c ° r ''v^detaned-Alsoinclod^M^^ 

D00k ^ S ,to?tharhammenn9 thosP 

rtnOS to Stop v 

Vurtherpto^ oNLY^- 95 
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^ ^XES OF TEN DISCS 

DS/DD .£16.00 

. .. 

NEW SPECIAL PACKS WITH 
SS/on PLAST 'CCASE H 

DS/DD .£2l'?n' nC ! Ud ' n9Case 

. £21.00 including Case 



Get a QUICKDISC 4 . 

J 541 will real iy start Pegged into your 64 and vn 

S»^7ouTL h Z y ^ 

*2SsziS?* s s‘£2i 

FmttFtF ^^wareJ S ' i0 entlre ddc ’ n r°u' minutes. (Not heavily 

Improved SSr c o^ C i!i e , fast c °Pyng 

this to - 
,s tora " y 

Can you afford to be ^OUiaSSC+*" h *" that much 

ONLY £ 19.95 

uSike mos C t°Sr'p^cts^f^ 0 ' W,th QU| CKDISC+ 
second drives. P cu 11 “ compatible with pn n r e 7s 1 


ALL OFFERS SUBJECT TO AVAILABILITY 


All prices include P&P and VAT. Send cheque. Postal 
Order or Credit Card No. Credit Card orders accepted 
by phone. Callers welcome. Wide range of goods 
stocked. Trade enquiries welcome. European orders 
send price as advertised. Outside Europe £2.00 for air¬ 
mail. Mail order to Evesham Shop please. 


EVESHAM MICROS 

BRIDGE STREET, EVESHAM, 
WORCESTERSHIRE 

Tel: 0386 41989 


\ 


MICRO CENTRE 

1756 PERSHORE ROAD, 
COTTERIDGE, BIRMINGHAM. 

Tel: 021-458 4564 
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Part two of our communications program from K Otton and A Adams. 


Main Menu 


F3 - Set up Message Screen - 
will provide you with a blank 
screen on which you can pre¬ 
type a messge or draw one 
using the dots, dashes, stars etc. 
available in ASCII. When you 
have typed the message you 
can then go on line (F2) from 
Main Menu. When you need to 
send your message just press 
F5. The message can be sent as 
many times as you like. 

F4 enables you to view 
saved screens. When off or on 
line you may re-load a saved 


screen by pressing F4. You will 
be asked if you need a 
Directory (disk only) or to enter 
the name which you used to 
save the screens when on line. 
After the screen has loaded you 
will have the option to print the 
screen or go back to Main 
Menu. 

F5 - Create Board File - is 
like a small data base. When 
you have information such as 
name, telephone no., baud 
rate, parity etc. It can be typed 
in and saved as a file. 

F6 is Load/View Board File. 
Follow the Screen Prompts and 


this will load the stored 
information into memory and 
set the Baud Rate etc. ready to 
go on line. 

Loading F7 - Load Saved File 
(Buffer) - allows you to view or 
print all or some of the file you 
saved when you opened the 
Buffer (F3). This is OK apart 
from the fact that there is no 
error check on this version. 
However, it has proved to be 
pretty reliable on most 
transfers. When the file is 
printing to the screen you can 
stop the scrolling by using the 
space bar. Pressing the bar 


again will re-start output. You 
cannot stop the output to the 
printer once it has started. 
Again, hitting the back arrow 
will return to Main Menu. 

Macro 

Macro, or answer back as some 
people might know it, is an 
automatic demand to identify 
the caller. The host computer 
will send a control character 
which will make your 
computer send the required 
information. Not all Boards use 
this Function and not all Boards 


2320 DATA 32,32,32,32,32,32, 
32,54,32,66,9,20,19,46,46 
46,562 

2330 DATA 46,46,46,46,46,46, 

46.46.70.53.32.32.32.32, 
32,42,693 

2340 DATA 42,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,53,543 

2350 DATA 32,66,9,20,19,46, 
46,46,46,46,46,46,46,46, 
46,46,652 

2360 DATA 70,55,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,593 


2370 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,512 

2380 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 

2390 T)ATA 42,32,32,83,20,15, 
16,32,66,9,20,19,32,32,32 
32,514 

2400 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2410 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,532 

2420 DATA 32,32,32,32,32,32, 

32.49.32.83.20.15.16.32, 
66,9,546 


2430 DATA 20,19,46,46,46,46, 

46.46.70.49.32.32.32.32, 
32,42,636 

2440 DATA 42,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,50,540 

2450 DATA 32,83,20,15,16,32, 
66,9,20,19,46,46,46,46,46 
46,588 

2460 DATA 70,51,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,589 

2470 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2480 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 


2490 DATA 42,32,32,68,5,6,1, 

21.12.20.32.20.15.32.32, 
51,421 

2500 DATA 48,48,47,56,47,49, 
46,46,46,46,46,46,46,46, 
46,46,755 

2510 DATA 70,55,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,593 

2520 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2530 DATA 32,32,32,32,32,32. 

32,32,32,32,32,32,32,32, 

32.42.522 

2540 DATA 42,32,32,32,32,32 

32,32,32,32,32,32,32,32, 

32.32.522 















C64 


2550 DATA 32,32,32,32,32,32, 

32,32,532 

I 

70 70 TO TO TO TO TO 77 1 

32,32,32,32,32,32,32,32, 

2760 DATA 32,32,32,32,32,32, 

77 AO COO 1 

32,32,512 

32,32,32,32,32,32,32,32, 

2080 DATA 42,32,32,80,1,18,9, ' 

2560 DATA 32,32,32,32,32,32, 

32,32,512 

20,25,32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

2770 DATA 32,32,32,32,32,32, 

32,483 

32,32,532 

32,32,32,32,32,32,32,32, 

2090 DATA 32,32,32,32,32,32, 

2570 DATA 32,32,32,32,32,32, 

32,42,522 

32,32,32,32,32,32,32,32, i 

32,32,32,32,32,32,32,32, 

2780 DATA 42,32,32,32,32,32, 

32,32,512 

32,32,512 

32,32,32,32,32,32,32,32, 

2100 DATA 32,32,32,32,32,32, 

2580 DATA 32,32,32,32,32,32, 

32,51,541 

32,42,42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

2790 DATA 32,76,9,14,5,46,46, 

32,32,532 

32,42,522 

46,46,46,46.46,46,46,46, 

2110 DATA 32,32,32,32,32,32, 

2590 DATA 42,32,32,32,32,32, 

46,642 

32,78,15,14,5,46,46,46,46, 

32,32,32,32,32,32,32,32, 

2800 DATA 70,49,32,32,32,32, 

46,566 

32,32,522 

32,42,42,32,32,32,32,32, 

2120 DATA 46,46,46,46,46,46, 

2600 DATA 32,32,32,32,32,32, 

32,32,587 

46,46,70,49,32,32,32,32, 

32,32,32,32,32,32,32,32, 

2810 DATA 32,32,32,32,32,32, 

32,42,689 

32,32,512 

32,88,15,14,47,88,15,6,6, 

2130 DATA 42,32,32,32,32,32, 

2610 DATA 32,32,32,32,32,32, 

46,549 

32,32,32,32,32,32,32,32, 

32,42,42,32,32,32,32,32, 

2820 DATA 46,46,46,46,46,46, 

32,79,569 

32,32,532 

46,46,70,51,32,32,32,32, 

2140 DATA 4,4,46,46,46,46,46, 

2620 DATA 32,32,32,32,32,32, 

32,42,691 

46,46,46,46,46,46,46,46, 

32,32,32,32,32,32,32,32, 

2830 DATA 42,32,32,32,32,32, 

46,652 

32,32,512 

32,32,32,32,32,32,32,32, 

2150 DATA 70,50,32,32,32,32, 

2630 DATA 32,32,32,32,32,32, 

32,32,522 

32,42,42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

2840 DATA 32,0,170,0,170,0, 

32,32,588 

32,42,522 

170,0,170,0,170,0,170,0, 

2160 DATA 32,32,32,32,32,32, 

2640 DATA 42,42,42,42,42,42, 

170,0,1222 

32,69,22,5,14,46,46,46,46, 

42,42,42,42,42,42,42,42, 

4000 PRINT"[CLEAR]NEW" 

46,564 

42,42,672 

: PRINT"CDQWN2] 

2170 DATA 46,46,46,46,46,46, 

2650 DATA 42,42,42,42,42,42, 

LQAD"+CHR$(34)+"C0MMS GEN 

46,46,70,51,32,32,32,32, 

42,42,42,42,42,42,42,42, 

5"+CHR$(34)+",8" 

32,42,691 

42,42,672 

4005 REM It CHANGE , 

2180 DATA 42,32,32,32,32,32, 

2660 DATA 42,42,42,42,42,42, 

8 IN ABOVE LINE TO ,1 IF 

32,32,32,32,32,32,32,32, 

42,42,70,0,0,0,0,0,18,0, 

YOU ARE USING TAPE It 

32,78,568 

424 

4010 PRINT"CDOWN43RUN” 

2190 DATA 15,14,5,40,13,1,18, 

2670 DATA 70,0,0,0,0,0,18,0, 

4020 POKE 631,13:POKE 632,13 

11,41,46,46,46,46,46,46, 

70,0,0,0,0,0,18,0,176 

:POKE 633,13:POKE 198,3 

46,480 

2680 DATA 42,42,42,42,42,42, 

:PRINT"[HOME!* 

2200 DATA 70,52,32,32,32,32, 

42,42,42,42,42,42,42,42, 


32,42,42,32,32,32,32,32, 

42,42,672 

PROGRAM: COMMS GENS 

32,32,590 

2690 DATA 42,42,42,42,42,42, 


2210 DATA 32,32,32,32,32,32, 

42,42,42,42,42,42,42,42, 

2000 FOR L=0 TO 175:CX=0 

32,78,15,14,5,40,19,16,1, 

42,42,672 

:FOR D=0 TO 15:READ A 

3,415 

2700 DATA 42,42,42,42,42,42, 

:CX=CX+A:POKE 9472+LI16+D, 

2220 DATA 5,41,46,46,46,46, 

42,42,42,32,32,32,32,32, 

A:NEXT D 

46,46,70,53,32,32,32,32, 

32,32,602 

2010 READ A: IF AOCX THEN PR 

32,42,647 

2710 DATA 32,32,32,32,32,32, 

INT"ERR0R IN LINE": 

2230 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

2040+(Lll0):ST0P 

32,32,32,32,32,32,32,32, 

32,32,512 

2020 NEXT L 

32,32,522 

2720 DATA 32,32,32,32,32,32, 

2040 DATA 32,32,32,32,32,32, 

2240 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 

32,32,512 

32,32,512 

2730 DATA 42,62,32,72,1,14,4, 

2050 DATA 32,32,32,32,32,32, 

2250 DATA 32,32,32,32,32,32, 

32,83,8,1,11,9,14,7,32,424 

32,42,42,32,32,32,32,32, 

32,42,42.32,32,68,21,16, 

2740 DATA 32,32,32,32,32,32, 

32,32,532 

12,5,494 

32,32,32,32,32,32,32,32, 

2060 DATA 32,32,32,32,32,32, 

2260 DATA 24,32,32,32,32,32, 

32,32,512 

32,32,32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

2750 DATA 32,32,32,32,32,32, 

32,32,512 

32,32,504 

32,42,42,32,32,32,32,32, 

2070 DATA 32,32,32,32,32,32, 

► 


Getting it all in 


boot generator program also, if 
you are using tape make sure 
that you make all the changes 


should save the programs 
COMMS GEN1 to 5 on the 
same cassette one after the 
other. 

When you have entered 
and SAVEd all parts then LOAD 
and RUN the BASIC MOVE 
program. 

Now LOAD 'COMMS 
GEN1 ; and RUN. This will auto¬ 
matically LOAD i n parts 2 to 5 as 
needed. If you are using 
cassette then place a new 
cassette in the unit as soon as 
part 5 has finished loading. 
When 'COMMS GEN5' has 
finished LOADing it will SAVE 
'1TELCOM/VT to tape or disk. 

Next switch off and on your 
machine and LOAD 'COMMS 
GEN6' and RUN. This will 
LOAD part 7 when needed. 
Cassette users should place the 
cassette that contains 
'1TELCOM/VV in the unit as 
soon as part 7 has loaded. Part 7 
will SAVE '2TELCOM/v1' to 
tape or disk when finished. 

You should now have two 
programs '1TELCOM/V1' and 
'2TELCOM/V1' these are the 
complete program. In future if 
you want to use the program 
simply type: 

LOAD "1TELCOM/V1”,8/1 
LOAD “2TELCOM/V1 ”,8,1 

SYS 52224 

and the program will start. If 
you are using tape then change 
the ,8,1 in the above lines to 
, 1 , 1 . 

Disk users have the added 
advantage of an auto boot 
program. LOAD and RUN the 
BOOT GENERATOR program 
and COMMS BOOT will be 
saved to your disk. In future to 
use the program type LOAD 
"COMMS BOOT”,8,1 and the 
program will auto run. 














2270 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 

32.42.522 

2280 DATA 42,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,70,560 

2290 DATA 21,12,12,46,46,46, 

46.46.46.46.46.46.46.46, 
46,46,643 

2300 DATA 70,49,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,587 

2310 DATA 32,32,32,32,32,32, 

32.72.1.12.6.46.46.46.46, 
46,545 

2320 DATA 46,46,46,46,46,46, 

46.46.70.51.32.32.32.32, 
32,42,691 

2330 DATA 42,32,32,32,32,32. 

32.32.32.32.32.32.32.32, 

32.32.522 

2340 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2350 DATA 32,32,32,32,32,32, 
32,42,42,32,32,68,5,6,1, 
21,473 

2360 DATA 12,20,32,20,15,32, 
51,76,9,14,5,47,70,21,12, 
12,448 

2370 DATA 47,78,15,14,5,46, 

46.46.70.55.32.32.32.32, 
32,42,624 

2380 DATA 42,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32.32.522 

2390 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2400 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,532 

2410 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2420 DATA 32,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 

32.42.522 

2430 DATA 42,32,32,32,32,32, 
32,32,32,32,32,32,32,32, 

32.32.522 

2440 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2450 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,532 

2460 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 


2470 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 

2480 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

2490 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

2500 DATA 42,42,42,42,42,42, 
42,42.70,0,0,0,0,0,18,0, 
424 

2510 DATA 70,0,0,0,0,0,18,0, 
70,0,0,0,0,0,18,0,176 

2520 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

2530 DATA 42,42,42,42,42,42, 


42.42.42.32.32.32.32.32, 
32,32,602 

2550 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2560 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

2570 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,42,42, 
32,77,587 

2580 DATA 1,9,14,32,77,5,14, 

21.32.42.42.32.32.32.32, 
32,449 

2590 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,532 

2600 DATA 32,32,32,32,32,32, 
32,45,45,45,45,32,45,45, 
45,45,616 

2610 DATA 32,32,32,32,32,32, 


32.32.32.32.32.32.32.32, 

32,42,522 

2620 DATA 42,32,32,32,70,21, 

14.3.20.9.15.14.32.32.32, 
32,432 

2630 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2640 DATA 32,75,5,25,32,32, 

32.42.42.32.32.32.32.32, 
32,32,541 

2650 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2660 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 

2670 DATA 42,32,32,32,32,60, 
49,62,32,32,83,5,20,32,80 
18,643 


361 

2690 DATA 46,70,49,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.601 

2700 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

2710 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

2720 DATA 42,32,32,32,32,60, 
50,62,32,32,71,15,32,84, 
15,32,655 

2730 DATA 84,5,18,13,9,14,1, 
12,32,77,15,4,5,46,46,46, 
427 

2740 DATA 46,70,50,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.602 

2750 DATA 32,32,32,32,32,32, 


32,32,32,32,32,32,32,32, 

32,32,512 

2760 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,42,522 

2770 DATA 42,32,32,32,32,60, 
51,62,32,32,83,5,20,32,85, 
16,648 

2780 DATA 32,77,5,19,19,1,7, 
5,32,83,3,18,5,5,14,46,37 
2790 DATA 46,70,51,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.603 

2800 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2810 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,42,522 

2820 DATA 42,32,32,32,32,60, 

52.62.32.32.86.9.5.23.32, 
83,646 

2830 DATA 1,22,5,4,32,83,3, 

18.5.5.14.19.46.46.46.46, 
395 

2840 DATA 46,70,52,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.604 

2850 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2860 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,42,522 

2870 DATA 42,32,32,32,32,60, 
53,62,32,32,67,18,5,1,20, 
5,525 

2880 DATA 32,66,15,1,18,4,32, 

70.9.12.5.46.46.46.46.46, 
494 

2890 DATA 46,70,53,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.605 

2900 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,32,512 

2910 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,42,522 

2920 DATA 42,32,32,32,32,60, 

54.62.32.32.76.15.1.4.32, 
47,585 

2930 DATA 32,86,9,5,23,32,66, 
15,1,18,4,32,70,9,12,5,419 
2940 DATA 46,70,54,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.606 

2950 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 


42,42,42.42,42,42,42,42, 

42,42,672 



40,66,1,21,4,82,1,20,5,41 














C64 


32,32,512 

2960 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

2970 DATA 42,32,32,32,32,60, 

55.62.32.32.70.9.12.5.32, 
76,615 

2980 DATA 15,1,4,32,86,9,5, 
23,47,80,18,9,14,20,32,63, 
458 

2990 DATA 46,70,55,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.607 

3000 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3010 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3020 DATA 42,32,32,32,32,60, 
56,62,32,32,70,1,3,9,12,9, 
516 

3030 DATA 20,25,32,83,3,18,5, 

5,14,46,46,46,46,46,46,46, 
527 

3040 DATA 46,70,56.32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.608 

3050 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3060 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32.42.522 

3070 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32.32.522 

3080 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3090 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 

32,32,532 

3100 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3110 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32.42.522 

3120 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

3130 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

3140 DATA 42,42,42,42,42,42, 
42,42,70,0,0,0,0,0,18,0, 
424 

3150 DATA 70,0,0,0,0,0,18,0, 
70,0,0,0,0,0,18,0,176 


3160 DATA 42,42,42,42,42,42, 

42,42,42,42,42,42,42,42, 

42,42,672 

3170 DATA 42,42,42,42,42,42, 

42.42.42.42.42.42.42.42, 

42,42,672 

3180 DATA 42,42,42,42,42,42, 

42.42.42.32.32.32.32.32, 

32,32,602 

3190 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3200 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3210 DATA 42,32,32,32,32,32, 

32.32.32.32.32.32.42.42, 
32,70,580 

3220 DATA 1,3,9,12,9,20,9,5, 

19.32.42.42.32.32.32.32, 
331 

3230 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 

32,32,532 

3240 DATA 32,32,32,32,32,32, 
32,45,45,45,45,45,45,45, 
45,45,629 

3250 DATA 45,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 
32,42,535 

3260 DATA 42,32,32,32,70,21, 

14.3.20.9.15.14.32.32.32, 
32,432 

3270 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3280 DATA 32,75,5,25,32,32, 

32.42.42.32.32.32.32.32, 
32,32,541 

3290 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3300 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3310 DATA 42,32,32,32,32,60, 
49,62,32,32,80,18,9,14,20, 
5,551 

3320 DATA 18,32,68,5,22,32, 

180,47,54,46,46,46,46,46, 
46,46,780 

3330 DATA 46,70,49,32,32,32, 

32.42.42.32.32.32.32.32, 
32,32,601 

3340 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3350 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 


3360 DATA 42,32,32,32,32,60, 
50,62,32,32,196,137,147, 
139,32,15,1072 

3370 DATA 18,32,84,1,16,5,46, 

46.46.46.46.46.46.46.46, 
46,616 

3380 DATA 46,70,50,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.602 

3390 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3400 DATA 32,32,32,32,32,32, 

70 77 77 77 77 77 77 77 
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32,42,522 

3410 DATA 42,32,32,32,32,60, 
51,62,32,32,73,14,3,32,83, 
3,615 

3420 DATA 18,5,5,14,32,67,15, 

12.46.46.46.46.46.46.46, 
46,536 

3430 DATA 46,70,51,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.603 

3440 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3450 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3460 DATA 42,32,32,32,32,60, 

52.62.32.32.73.14.3.32.66, 
15,611 

3470 DATA 18,4,5,18,32,67,15, 

12.46.46.46.46.46.46.46, 
46,539 

3480 DATA 46,70,52,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.604 

3490 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3500 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3510 DATA 42,32,32,32,32,60, 

53.62.32.32.73.14.3.32.67, 
21,619 

3520 DATA 18,19,15,18,32,67, 

15.12.46.46.46.46.46.46, 
46,46,564 

3530 DATA 46,70,53,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.605 

3540 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3550 DATA 32,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32,42,522 


3560 DATA 42,32,32,32,32,60, 

54.62.32.32.66.5.12.12.32, 
207,744 

3570 DATA 142,47,79,6,6,46, 

46,46,46,46,46,46,46,46, 
46,46,786 

3580 DATA 46,70,54,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.606 

3590 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3600 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3610 DATA 42,32,32,32,32,60, 
55,62,32,32,85,14,21,19,5, 
4,559 

3620 DATA 46,46,46,46,46,46, 

46.46.46.46.46.46.46.46, 
46,46,736 

3630 DATA 46,70,55,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.607 

3640 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,32,512 

3650 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32,42,522 

3660 DATA 42,32,32,32,32,60, 
56,62,32,32,82,5,20,21,18, 
14,572 

3670 DATA 32,77,1,9,14,32,77, 

5.14.21.46.46.46.46.46.46, 
558 

3680 DATA 46,70,56,32,32,32, 

32.42.42.32.32.32.32.32, 

32.32.608 

3690 DATA 32,32,32,32,32,32, 

70 70 70 TO 70 7,0 70 70 

V 1 J V *. f W ' V J \»* L ) Wfc | 'J im ) -JlL J 

32,32,512 

3700 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

32.42.522 

3710 DATA 42,32,32,32,32,32, 

32,32,32,32,32,32,32,32, 

32.32.522 

3720 DATA 32,32,32,32,32,32, 

32.32.32.32.32.32.32.32, 

77 en 
J Jm J ■J L J Jli 

3730 DATA 32,32,32,32,32,32, 

32.42.42.32.32.32.32.32, 

32,32,532 

3740 DATA 32,32,32,32,32,32, 

77 77 77 *?n ?»■> vn ?n 

vil vij v*.j wXy jlj -*i.j JLj 

10 70 

■J i. < yJi, )u'U 

3750 DATA 32,32,32,32,32,32, 

70 70 70 10 77 10 10 70 

v'ij •-'i.J -Jij 'Ji. J -j *- J OZy vif 

► 









32,42,522 

3760 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 

3770 DATA 42,42,42,42,42,42, 
42,42,42,42,42,42,42,42, 
42,42,672 

3780 DATA 42,42,42,42,42,42, 

42,42,255,255,255,255,255, 
255,255,255,2376 

3790 DATA 32,32,32,32,32,32, 
32,32,0,32,0,0,0,32,45,61, 
426 

4000 REM II SAVE PT 1 It 

4010 POKE 43,0:POKE 44,8 
:POKE 45,0:POKE 46,48 

4015 REM It CHANGE , 

3 IN NEXT LINE TO ,1 IF 
USING TAPE II 

4020 SAVE "ITELCOM/Vr',8 ■ 


PROGRAM: COMMS SEN6 


2000 FOR L=0 TO 80:CX=0 
:FOR D=0 TO 15:READ A 
:CX=CX+A:POKE 49152+LI16+ 
D,A:NEXT D 

2010 READ A: IF AOCX THEN PR 
I NT"ERROR IN LINE"; 

2040+(LI10):STOP 
2020 NEXT L 

2040 DATA 133,253,132,254,32, 
204,255,160,0,177,253,200, 
201,0,240,6,2500 
2050 DATA 32,210,255,76,9, 
192,96,238,33,208,32,204, 
255,32,86,192,2150 
2060 DATA 162,0,189,0,4,157, 
0,8,189,0,5,157,0,9,189,0, 
1069 

2070 DATA 6,157,0,10,189,0,7, 
157,0,11,232,224,0,208, 
227,206,1634 

2080 DATA 33,208,96,32,86, 

192,169,38,141,24,208,32, 
228,255,240,251,2233 
2090 DATA 169,23,141,24,208, 
96,162,0,169,1,157,0,216, 
157,0,217,1740 
2100 DATA 157,0,218,157,0, 
219,232,224,0,208,237,96, 
162,0,189,0,2099 
2110 DATA 4,157,0,16,189,0,5, 
157,0,17,189,0,6,157,0,18, 
915 

2120 DATA 189,0,7,157,0,19, 
232,224,0,208,227.96,32, 
204,255,174,2024 
2130 DATA 197,20,160,0,169,1, 

32,136,255,173,197,20,201, 


1,240,66,1918 

2140 DATA 169,64,141,20,2, 
169,48,141,21,2,169,58, 
141,22,2,160,1329 
2150 DATA 0,185,0,2,153,23,2, 
200,204,194,20,208,244, 
169,44,153,1801 
2160 DATA 23,2,169,80,153,24, 
2,173,189,20,201,83,208, 
12,169,44,1552 
2170 DATA 153,25,2,169,87, 
153,26,2,200,200,200,200, 
200,200,200,76,2093 
2180 DATA 240,192,160,0,.185, 
0,2,153,20,2,200,204,194, 
20,208,244,2024 
2190 DATA 152,162,20,160,2, 

32.189.255.96.32.204.255, 
173,197,20,201,2150 

2200 DATA 8,240,11,169,38, 
160,20,32,0,192,32,105, 
193,96,169,0,1465 
2210 DATA 32,189,255,169,15, 

162.8.160.15.32.186.255, 
32,192,255,162,2119 

2220 DATA 15,32,198,255,160, 
0,32,207,255,201,13,240,7, 
153,0,2,1770 

2230 DATA 200,76,38,193,169, 
0.153,0,2,32,204,255,169, 
13,32,210,1746 

2240 DATA 255,32,210,255,32, 

210.255.169.32.32.210.255, 
169,0,160,2,2273 

2250 DATA 32,0,192,162,15,32, 

201.255.169.73.32.210.255, 
169,13,32,1842 

2260 DATA 210,255,32,204,255, 
32,105,193,96,169,152,160, 
20,32,0,192,2107 
2270 DATA 32,228,255,240,251, 
201,32,208,247,96,173,197, 
20,201,8,240,2629 
2280 DATA 6,169,147,32,210, 
255,96,169,97,160,20,32,0, 
192,32,223,1845 
2290 DATA 255,240,251,201,89, 
240,7,201,78,240,230,76, 
142,193,169,147,2759 
2300 DATA 32,210,255,32,253, 

193,32,204,255,162,1,32, 
198,255,32,207,2353 
2310 DATA 255,32,207,255,160, 
29,234,32,207,255,32,2*10, 
255,136,208,246,2753 
2320 DATA 169,13,32,210,255, 
32,207,255,201,13,240,40, 
201,34,203,245,2355 
2330 DATA 32,207,255,201,191, 
208,21,32,207,255,201,34, 


240,6,32,210,2332 
2340 DATA 255,76,215,193,169, 
13,32,210,255,76,197,193, 
32,207,255,208,2586 
2350 DATA 251,76,197,193,169, 

1.32.195.255.32.204.255, 
96,32,204,255,2447 

2360 DATA 169,1,133,184,169, 
8,133,186,169,0,133,185, 
169,2,133,183,1957 
2370 DATA 169,216,133,187, 

169.20.133.188.32.192.255, 
96,169,13,141,198,2311 

2380 DATA 20,32,34,195,172, 
194,20,200,200,200,140, 
195,20,162,0,189,1973 
2390 DATA 0,2,157,66,20,232, 
224,13,208,245,162,0,189, 
0,2,157,1677 

2400 DATA 83,20,232,224,13, 

208,245,169,48,141,64,20, 
141,65,20,141,1834 
2410 DATA 81,20,141,82,20,96, 

169.76.141.189.20.169.166, 
141,212,193,1916 

2420 DATA 32,122,193,169,13, 

141.198.20.169.1.141.166, 
195,169,166,141,2036 

2430 DATA 0,2,32,44,195,144, 

3.76.139.194.32.140.192, 
169,0,162,1524 

2440 DATA 0,160,8,32,213,255, 
144,3,32,249,192,169,119, 
160,20,32,1788 
2450 DATA 0,192,32,228,255, 

240,251,201,83,240,11,201, 
80,240,46,201,2501 
2460 DATA 95,240,48,76,139, 

194,169,38,141,24,208,32, 
86,192,169,10,1861 
2470 DATA 141,190,20,162,255, 
160,255,136,208,253,202, 
208,248,206,190,20,2854 
2480 DATA 173,190,20,208,238, 
169,23,141,24,208,76,146, 
194,32,35,201,2078 
2490 DATA 76,139,194,96,174, 
65,20,232,224,58,208,11, 
169,48,141,65,1920 
2500 DATA 20,238,64,20,76, 
234,194,142,65,20,173,195, 
20,141,194,20,1816 
2510 DATA 162,0,189,63,20, 
157,0,2,232,236,194,20, 
208,244,169,83,1979 
2520 DATA 141,189,20,32,140, 
192,169,0,133,251,169,16, 
133,252,162,255,2254 
2530 DATA 160,19,169,251,32, 

216.255.144.3.32.249.192, 


240,3,32,249,2246 
2540 DATA 192,96,169,0,160, 
20,32,0,192,76,51,195,169, 
19,160,20,1551 

2550 DATA 32,0,192,162,0,169, 
46,32,210,255,232,236,198, 
20,208,247,2239 
2560 DATA 162,0,169,157,32, 

210.255.232.236.198.20, 
208,247,160,0,140,2426 

2570 DATA 192,20,169,164,32, 
210,255,169,157,32,210, 
255,32,228,255,240,2620 
2580 DATA 251,172,192,20,141, 

191,20,169,46,32,210,255, 
169,157,32,210,2267 
2590 DATA 255,173,191,20,201, 
13,240,59,201,95,208,10, 
169,0,141,166,2142 
2600 DATA 195,141,194,20,56, 
96,201,20,208,13,192,0, 
240,193,136,169,2074 
2610 DATA 157,32,210,255,76, 
79,195,41,127,201,32,144, 
178,204,198,20,2149 
2620 DATA 240,173,173,191,20, 
153,0,2,32,210,255,169,0, 
133,212,200,2163 
2630 DATA 76,79,195,173,166, 
195,240,7,200,206,166,195, 
76,179,195,140,2488 
2640 DATA 194,20,169,13,32, 

210,255,96,32,204,255,32, 
86,192,169,182,2141 
2650 DATA 141,24,208,32,228, 
255,240,251,201,133,208,3, 
76,23,196,201,2420 
2660 DATA 137,208,3,76,64, 

196,201,134,208,3,76,167, 
196,201,138,208,2216 
2670 DATA 3,76,188,196,201, 

135,208,3,76,209,196,201, 
139,208,3,76,2118 
2680 DATA 234,196,201,136, 
208,3,76,20,196,201,140, 
208,3,76,19,196,2113 
2690 DATA 76,211,195,96,76, 
211,195,173,219,20,240,18, 
169,0,141,219,2259 
2700 DATA 20,169,180,141,6, 
45,169,54,141,8,45,76,211, 
195,169,1,1630 

2710 DATA 141,219,20,169,52, 
141,6,45,169.182,141,8,45, 
76,211,195,1820 
2720 DATA 173,197,20,201,8, 

240.48.169.8.141.197.20, 
169,196,141,74,2002 

2730 DATA 45,169,137,141,75, 
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C64 


45.169.147.141.76.45.169, 
139,141,77,45,1761 

2740 DATA 169,84,141,82,45, 

169.1.141.83.45.169.16, 
141,84,45,169,1584 

2750 DATA 5,141,85,45,76,211, 

195.169.1.141.197.20.169, 
68,141,74,1738 

2760 DATA 45,169,9,141,75,45, 
169,19,141,76,45,169,11, 
141,77,45,1377 

2770 DATA 169,212,141,82,45, 
169,129,141,83,45,169,144, 
141,84,45,169,1968 
2780 DATA 133,141,85,45,76, 

211.195.173.33.208.201.16, 
240,6,238,33,2034 

2790 DATA 208,76,211,195,169, 
0,141,33,208,76,211,195, 
173,32,208,201,2337 
2800 DATA 16,240,6,238,32, 
208,76,211,195,169,0,141, 
32,208,76,211,2059 
2810 DATA 195,238,134,2,173, 
134,2,201,16,208,5,169,0, 
141,134,2,1754 

2820 DATA 141,89,192,76,200, 
195,234,76,211,195,173, 
218,20,240,31,169,2460 
2830 DATA 0,141,218,20,169, 
79,141,143,46,169,14,141, 
144,46,169,207,1847 
2840 DATA 141,255,255,255, 
255,255,255,255,255,255, 
255,255,255,255,255,255, 
3966 

4000 PRINT"CCLEAR3NEW" 

:PRINT"DDOWN23 
L0AD"+CHR$(34)+”C0MMS GEN 
7"+CHR$(34)+",8" 

4005 REM ** CHANGE , 

8 IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE *< 

4010 PRINT"[DQWN43RUN” 

4020 POKE 631,13:POKE 632,13 
:POKE 633,13:POKE 198,3 
:PRINT"LHOME3" ■ 


PROGRAM: COHMS 6EN7 


2000 FOR L=0 TO 176:CX=0 
:FOR D=0 TO 15:READ A 
:CX=CX+A:POKE 50432+LI16+ 
D,A:NEXT D 

2010 READ A: IF AOCX THEN PR 
INT'ERROR IN LINE"; 

2040+(Ltl0):STOP 
2020 NEXT L 

2040 DATA 141,146,46,169,134, 
141,147,46,141,148,46,76, 



208,3,76,106,198,201,134, 

208,8,169,32,32,2190 


211,195,169,1,1957 
2050 DATA 141,218,20,169,207, 
141,143,46,169,142,141, 
144,46,169,79,141,2116 
2060 DATA 146,46,169,6,141, 
147,46,141,148,46,76,211, 
195,148,46,76,1788 
2070 DATA 211,195,0,173,147, 
2,41,15,170,189,220,20, 
133,253,189,229,2187 
2080 DATA 20,133,254,32,214, 
197,173,147,2,41,112,74, 
74,74,74,170,1791 
2090 DATA 189,96,207,133,253, 
189,112,207,133,254,32, 
214,197,173,147,2,2538 
2100 DATA 41,128,240,14,169, 
74,133,253,169,21,133,254, 
32,214,197,76,2148 


133,21,144,245,2747 
2190 DATA 96,169,135,141,24, 
208,32,86,192,169,0,141, 
135,21,141,136,1826 
2200 DATA 21,169,62,141,81, 
32,32,228,255,240,251,201, 
136,208,3,76,2136 
2210 DATA 73,199,201,133,208, 
8,169,6,32,57,199,76,51, 
198,201,134,1945 
2220 DATA 208,8,169,7,32,57, 
199,76,51,198,201,135,208, 
216,169,8,1942 
2230 DATA 32,57,199,169,32, 
141,81,32,169,62,141,65, 
33,32,228,255,1728 
2240 DATA 240,241,201,133, 


2110 DATA 125,197,169,72,133, 
253,169,21,133,254,32,214, 
197,173,148,2,2292 
2120 DATA 41,1,240,14,169,8, 
133,253,169,21,133,254,32, 
214,197,76,1955 
2130 DATA 157,197,169,19,133, 


2250 DATA 57,199,76,106,198 
201,135,208,8,169,64,32, 
57,199,76,106,1891 
2260 DATA 198,201,136,208, 
206,169,96,32,57,199,169 
32,141,65,33,169,2111 
2270 DATA 62,141,49,34,32, 
228,255,240,241,201,133, 


253,169,21,133,254,32,214, 
197,173,148,2,2271 
2140 DATA 41,16,208,14,169, 
33,133,253,169,21,133,254, 


208,3,76,137,198,2238 
2280 DATA 201,134,208,230, 
169,128,32,57,199,169,32 
141,49,34,169,62,2014 


32,214,197,76,1963 


2290 DATA 141,81,36,169,151, 


2150 DATA 189,197,169,27,133, 
253,169,21,133,254,32,214, 
197,173,148,2,2311 
2160 DATA 41,224,74,74,74,74, 
74,170,189,248,20,133,253, 
189,0,21,1858 

2170 DATA 133,254,32,214,197, 
96,160,0,177,253,200,201, 
0,240,6,32,2195 
2180 DATA 210,255,76,216,197, 
96,253,32,210,255,200,204, 


141,24,208,169,62,141,81, 
36,32,228,255,1955 
2300 DATA 201,136,208,3,76, 
81,199,201,133,208,3,76, 
220,198,201,134,2278 
2310 DATA 208,235,169,1,32, 
65,199,76,220,198,169,32, 
141,65,37,169,2016 
2320 DATA 62,141,89,38,32, 
228,255,240,241,201,133, 
208,3,76,34,199,2180 


2330 DATA 201,134,208,230, 
169,16,32,65,199,76,34, 
199,169,32,141,81,1986 
2340 DATA 36,169,62,141,65, 
37,32,228,255,240,241,201, 
133,208,3,76,2127 
2350 DATA 31,199,201,137,208, 

8.169.32.32.65.199.76.31, 
199,201,134,1922 

2360 DATA 208,8,169,96,32,65, 
199,76,31,199,201,138,208, 
8,169,160,1967 
2370 DATA 32,65,199,76,31, 
199,201,135,208,194,169, 
224,32,65,199,76,2105 
2380 DATA 186,198,169,23,141, 
24,208,169,32,141,89,38, 
173,135,21,141,1888 
2390 DATA 147,2,173,136,21, 
141,148,2,96,24,109,135, 
21,141,135,21,1452 
2400 DATA 96,24,109,136,21, 

141.136.21.96.169.6.141, 
135,21,76,147,1475 

2410 DATA 198,169,0,141,136, 
21,76,34,199,173,197,20, 
201,1,240,5,1811 
2420 DATA 169,168,141,212, 

193.32.122.193.169.76.141, 
189,20,169,15,141,2150 

2430 DATA 198,20,169,1,141, 
166,195,169,168,141,0,2, 
32,44,195,144,1785 
2440 DATA 1,96,32,140,192, 
169,0,162,139,160,23,32, 
213,255,144,3,1761 
2450 DATA 32,249,192,173,172, 

23.141.147.2.173.173.23, 
141,148,2,169,1960 

2460 DATA 101,160,23,32,0, 
192,169,139,160,23,32,0, 
192,169,13,32,1437 
2470 DATA 210,255,32,210,255, 

32.210.255.169.34.160.23, 
32,0,192,169,2238 

2480 DATA 156,160,23,32,0, 

192.169.13.32.210.255.32, 
210,255,32,210,1981 

2490 DATA 255,169,16,160,23, 
32,0,192,32,51,197,169,13, 
32,210,255,1806 
2500 DATA 32,210,255,32,210, 
255,169,213,160,23,32,0, 
192,169,175,160,2287 
2510 DATA 23,32,0,192,169,13, 
32,210,255,32,210,255,96, 
162,0,169,1850 
2520 DATA 0,157,139,23,232, 
224,14,208,248,162,0,169, 

► 













0,157,156,23,1912 
2530 DATA 232,224,14,208,248, 
162,0,169,0,157,172,23, 
232,162,0,169,2172 
2540 DATA 0,157,175,23,232, 
224,36,208,248,169,101, 
160,23,32,0,192,1980 
2550 DATA 169,15,141,198,20, 
32,51,195,140,119,23,144, 
1,96,162,0,1506 
2560 DATA 189,0,2,157,139,23, 
232,236,194,20,208,244, 
169,13,32,210,2068 
2570 DATA 255,169,25,160,23, 
32,0,192,169,15,141,198, 
20,32,51,195,1677 
2580 DATA 192,0,240,14,162,0, 
189,0,2,157,156,23,232, 
236,194,20,1817 
2590 DATA 208,244,32,241,197, 
173,147,2,141,172,23,173, 
148,2,141,173,2217 
2600 DATA 23,169,13,32,210, 
255,32,210,255,169,120, 
160,23,32,0,192,1895 
2610 DATA 32,51,197,169,13, 
32,210,255,169,45,160,23. 
32,0,192,169,1749 
2620 DATA 36,141,198,20,32, 
51,195,192,0,240,14,162,0, 
189,0,2,1472 

2630 DATA 157,175,23,232,236, 

194,20,208,244,169,17,32, 
210,255,32,210,2414 
2640 DATA 255,169,74,160,23, 
32,0,192,32,228,255,240, 
251,201,78,208,2398 
2650 DATA 3,76,253,199,201, 
39,208,240,169,147,32,210, 
255,169,83,141,2475 
2660 DATA 189,20,169,168,141, 
0,2,172,119,23,192,0,240, 
14,162,0,1611 

2670 DATA 189,139,23,157,1,2, 
232,236,119,23,208,244, 
172,119,23,200,2087 
2680 DATA 140,194,20,32,140, 

192,169,139,133,251,169, 
23,133,252,162,212,2361 
2690 DATA 160,23,169,251,32, 
216,255,144,3,32,249,192, 
240,3,32,249,2250 
2700 DATA 192,96,0,32,48,207, 
234,234,234,234,32,186, 
255,169,0,32,2185 
2710 DATA 189,255,32,192,255, 
169,0,133,251,169,8,133, 
252,160,0,177,2375 
2720 DATA 251,170,189,231,23, 


141.191.20.140.192.20.162, 
4,32,201,255,2222 

2730 DATA 173,191,20,32,210, 
255,32,204,255,172,192,20, 
200,192,40,208,2396 
2740 DATA 222,162,4,32,201, 

255.169.13.32.210.255.32, 
204,255,32,155,2233 

2750 DATA 201,165,251,24,105, 
40,133,251,165,252,105,0, 
133,252,201,11,2289 
2760 DATA 208,187,165,251, 

201.232.208.181.162.4.32, 
201,255,169,13,32,2501 

2770 DATA 210,255,32,204,255, 

169.4.32.195.255.96.162, 
255,160,255,136,2675 

2780 DATA 208,253,202,208, 
248,96,162,200,202,208, 
253,96,0,173,32,208,2749 
2790 DATA 141,69,24,169,0, 

141.66.24.169.15.141.24, 
212,169,48,133,1545 

2800 DATA 107,169,0,133,106, 

169.1.141.68.24.169.2.162, 
2,160,255,1668 

2810 DATA 32,186,255 169,1, 

162.147.160.2.32.189.255, 
32,192,255,162,2231 

2820 DATA 2,32,198,255,32, 
228,255,201,0,208,3,76,9, 
203,141,191,2034 
2830 DATA 20,41,128,208,68, 
32,204,255,174,191,20,189, 
137,21,201,0,1889 
2840 DATA 208,3,76,194,202, 

189.137.21.141.67.24.201, 
34,208,2,169,1876 

2850 DATA 39,32,210,255,173, 

66.24.240.32.173.68.24, 
240,24,160,0,1760 

2860 DATA 173,67,24,145,106, 
230,106,208,16,230,107, 
165,107,201,159,208,2252 
2870 DATA 8,169,0,141,68,24, 
238,32,208,32,204,255,32, 
228,255,201,2095 
2880 DATA 0,240,156,141,191, 
20,170,189,11,22,201,0, 
240,17,141,191,1930 
2890 DATA 20,162,2,32,201, 

255.173.191.20.32.210.255, 
76,223,201,173,2226 

2900 DATA 191,20,201,133,208 

6.32.23.192.76.223.201, 
201,137,208,6,2058 

2910 DATA 32,67,192,76,223, 
201,201,134,208,11,169,1, 
141,66,24,32,1778. 


2920 DATA 123,203,76,223,201, 
201,138,208,14,169,0,141, 
66,24,173,69,2029 
2930 DATA 24,141,32,208,76, 

223,201,201,135,208,6,32, 
69,203,76,223,2058 
2940 DATA 201,201,139,208,6, 
32,190,204,76,223,201,201, 
136,208,9,32,2267 
2950 DATA 108,192,32,212,194, 
76,223,201,201,140,208,3, 
76,35,203,76,2180 
2960 DATA 223,201,173,191,20, 
201,7,240,10,201,5,240,17, 
76,223,201,2229 
2970 DATA 238,32,208,173,218, 

20,240,3,32,123,203,76, 
223,201,160,0,2150 
2980 DATA 185,175,23,201,0, 
240,28,170,140,192,20,189, 
11,22,141,191,1928 
2990 DATA 20,162,2,32,201, 

255.173.191.20.32.210.255, 
172,192,20,200,2137 

3000 DATA 76,224,202,32,204, 

255.76.223.201.32.204.255, 
169,95,32,210,2490 

3010 DATA 255,169,157,32,210, 

255.169.32.32.210.255.169, 
157,32,210,255,2599 

3020 DATA 76,57,202,169,2,32, 
195,255,169,0,141,66,24, 
169,1,141,1699 

3030 DATA 68,24,230,106,208, 
2,230,107,169,0,160,0,145, 
106,173,69,1797 
3040 DATA 24,141,32,208,96, 
169,0,133,251,169,12,133, 
252,160,0,177,1957 
3050 DATA 251,240,37,170,189, 

11,22,141,191,20,162,2,32, 
201,255,173,2097 
3060 DATA 191,20,32,210,255, 
32,204,255,165,251,24,105, 
1,133,251,165,2294 
3070 DATA 252,105,0,133,252, 

76.79.203.76.223.201.169, 
50,141,1,212,2173 

3080 DATA 169,25,141,5,212, 
169,32,141,4,212,169,33, 
141,4,212,96,1765 
3090 DATA 141,4,212,96,255, 

255,254,255,255,255,255, 
255,255,255,255,255,3512 
3100 DATA 0,0,0,8,1,0,0,0,0, 
0,4,0,0,0,8,0,13 
3110 DATA 0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 1 , 0 , 0 , 0,1 
3120 DATA 255,254,255,255, 


255,255,255,255,255,255, 

255,255,254,255,255,239, 

4062 

3130 DATA 254,255,255,255, 

'lpe; ICC OEE ncc occ 

kUUj kWWJ tm Ww ' UJ j| i. J W jl kWW) 

255,255,255,255,255,255, 

4079 

3140 DATA 0,0,0,0,0,0,0,8,0, 
8,0,2,1,0,0,0,19 
3150 DATA 0,32,0,0,0,0,0,0,0, 
0,0,64,0,0,0,0,96 
3160 DATA 169,14,32,210,255, 

169,8,32,210,255,169,5,32, 
210,255,169,2194 
3170 DATA 6,141,147,2,32,204, 

255.32.86.192.169.166.141, 
24,208,32,1837 

3180 DATA 228,255,240,251, 
201,133,208,6,32,241,197, 
76,20,204,201,137,2630 
3190 DATA 208,3,76,109,204, 

201.134.208.11.169.23.141, 
24,208,32,81,1832 

3200 DATA 206,76,20,204,201, 
138,208,3,76,179,204,201, 
135,208,3,76,2138 
3210 DATA 137,204,201,139, 
208,3,76,148,204,201,136, 
208,3,76,162,204,2310 
3220 DATA 201,140,208,3,76, 

173.204.76.31.204.76.20, 
204,169,23,141,1949 

3230 DATA 24,208,169,147,32, 
210,255,32,28,194,32,159, 
199,32,173,201,2095 
3240 DATA 76,20,204,76,20, 

204.76.20.204.169.23.141, 
24,208,32,253,1750 

3250 DATA 199,76,20,204,169, 
23,141,24,208,32,89,199, 
32,105,193,76,1790 
3260 DATA 20,204,169,23,141, 

24.208.32.60.205.76.20, 
204,32,200,195,1813 

3270 DATA 76,20,204,169,23, 

141.24.208.32.86.194.76, 
20,204,165,106,1748 

3230 DATA 201,0,208,7,165, 
107,201,48,208,1,96,162,3, 
230,106,208,1951 
3290 DATA 2,230,107,169,0, 
160,0,145,106,202,208,241, 
174,82,20,232,2078 
3300 DATA 224,58,208,11,169, 

48.141.82.20.238.81.20.76, 
242,204,142,1964 

3310 DATA 82,20,173,195,20, 
141,194,20,162,0,189,80, 
20,157,0,2,1455 ► 
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3320 DATA 232,236,194,20,208, 
244,169,83,141,189,20,32, 
140,192,169,0,2269 
3330 DATA 133,251,169,48,133, 

252.166.106.164.107.169, 
251,32,216,255,144,2596 

3340 DATA 3,32,249,192,240,3, 
32,249,192,169,0,133,106, 
169,48,133,1950 
3350 DATA 107,169,0,141,66, 

24.169.1.141.68.24.96.169, 
76,141,189,1581 

3360 DATA 20,169,191,141,212, 
193,32,122,193,169,13,141, 
198,20,169,1,1984 
3370 DATA 141,166,195,169, 
191,141,0,2,32,44,195,144, 
3,76,113,205,1817 
3380 DATA 32,140,192,169,0, 
162,0,160,48,32,213,255, 
144,3,32,249,1831 
3390 DATA 192,169,119,160,20, 
32,0,192,32,229,255,240, 
251,201,83,240,2414 
3400 DATA 14,201,80,240,101, 
201,95,208,3,76,69,206,76, 
113,205,169,2057 
3410 DATA 147,32,210,255,169, 
0,133,106,169,48,133,107, 
173,0,49,240,1970 
3420 DATA 26,160,0,177,106, 
201,0,240,52,32,210,255, 
32,70,206,32,1799 
3430 DATA 198,205,230,106, 
208,235,230,107,76,161, 
205,169,33,160,207,32,2562 
3440 DATA 0,192,32,105,193, 
96,32,228,255,208,1,96, 
201,32,240,5,1916 
3450 DATA 201,95,240,17,96, 
32,228,255,201,32,208,249, 
96,32,228,255,2465 
3460 DATA 240,251,76,113,205, 
104,104,76,113,205,169,4, 
174,219,20,224,2297 
3470 DATA 0,240,7,162,6,160, 
0,76,254,205,162,4,160,7, 
32,186,1661 

3480 DATA 255,169,0,32,189, 
255,32,192,255,169,0,133, 
106,169,48,133,2137 


3490 DATA 107,160,0,177,106, 
201,0,240,23,141,191,20, 
162,4,32,201,1765 
3500 DATA 255,173,191,20,32, 
210,255,230,106,208,230, 
230,107,76,17,206,2546 
3510 DATA 162,4,32,201,255, 
169,13,32,210,255,32,204, 
255,162,4,32,2022 
3520 DATA 195,255,76,113,205, 
96,160,20,162,255,202,208, 
253,136,208,248,2792 
3530 DATA 96,162,0,169,0,157, 
0,12,157,0,13,157,0,14, 
157,0,1094 

3540 DATA 15,232,208,241,169, 
12,133,254,169,0,133,253, 
169,147,32,210,2377 
3550 DATA 255,32,228,255,208, 
6,32,230,206,76,113,206, ' 
76,241,206,201,2571 
3560 DATA 20,240,42,201,95, 
240,88,201,13,240,70,201, 
34,208,2,169,2064 
3570 DATA 39,160,0,145,253, 
32,210,255,230,253,208,2, 
230,254,165,254,2690 
3580 ^ATA 201,15,208,6,165, 
253,201,231,240,53,76,113, 
206,165,254,201,2588 
3590 DATA 12,208,9,165,253, 
201,0,208,3,76,113,206, 
165,253,56,233,2161 
3600 DATA 1,133,253,165,254, 
233,0,133,254,169,20,32, 

210.255.76.113.2301 

3610 DATA 206,169,95,32,210, 
255,169,13,160,0,145,253, 

76.152.206.160.2301 

3620 DATA 1,169,0,145,253,96, 
169,95,32,210,255,169,157, 
32,210,255,2248 
3630 DATA 96,141,191,20,201, 
20,240,21,201,13,240,17, 
201,32,176,3,1813 
3640 DATA 76,113,206,173,191, 
20,201,96,144,3,76,16,207, 
76,127,206,1931 
3650 DATA 173,191,20,201,193, 
176,3,76,113,206,201,219, 
144,239,76,113,2344 


3660 DATA 206,147,32,32.17, 
17,78,79,32,70,73,76,69, 
13,0,0,941 

3670 DATA 169,4,174,219,20, 
224,0,240,5,162,6,160,0, 
96,162,4,1645 

3680 DATA 160,7,96,255,255, 

255,255,255,255,255,255, 
255,254,255,255,239,3561 
3690 DATA 254,255,255,255, 

255,255,255,255,255,255, 

255.255.255.255.255.255, 
4079 

3700 DATA 60,120,63,120,66, 
120,69,0,0,0,0,0,0,0,0,0, 
618 

3710 DATA 21,207,21,207,21, 
207,21,0,63,47,0,0,0,0,0, 
0,815 

3720 DATA 147,32,32,17,17,78, 
79,32,70.73,76,69,13,0, 
110,111,956 

3730 DATA 112,113,61,62,63, 

41.42.255.255.255.255.255, 
255,255,255,255,2789 

3740 DATA 0,0,0,8,1,0,0,0,0, 
0,4,0,0,0,0,0,13 
3750 DATA 0,0,0,0,0,0,0,0,0, 
0 , 0 , 0 , 1 , 0 , 0 , 0,1 
3760 DATA 0,204,255,255,255, 

255.255.255.255.255.255, 
255,254,255,255,239,3757 

3770 DATA 254,255,255,255, 

255,255,255,255,255,255, 

255.255.255.255.255.255, 
4079 

3780 DATA 0,0,0,0,0,0,0,8,0, 
8,0,2,1,0,0,0,19 
3790 DATA 0,32,0,0,0,0,0,0,0, 
0,0,100,0,10,0,40,182 
3800 DATA 0,255,255,255,255, 

7.255.255.255.255.255.255, 
255,255,255,255,3577 

4000 REM tt NOW SAVE PROG 
tt 

4030 POKE 43,0:POKE 44,192 
:POKE 45,1:POKE 46,208 
4035 REMtt CHANGE ,8 IN NEXT 
LINE TO ,1 IF YOU ARE 
USING TAPE ** 

4040 SAVE °2TELC0M/V1",8 ■ 



jOj jOj jO- jO- 
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EXCHANGE 




















Daryl Bowers adds 
birds and flies to the 
hazards which our 
little frog must face. 



15# 

1550 

8320 

8330 

8340 FLY 

8350 

8360 

8370 

8380 

8390 PRNTFLY 

8400 

8410 

8420 

8430 

8440 

8450 

8460 

8470 NEXTFLY 
8480 
8490 
8500 

8510 NXTFLY2 

8520 

8530 

8540 

8550 

8560 

8570 

8580 

8590 LOFLY 
8600 
8610 

8620 MVFLY 
8630 
8640 
8650 

8660 NOCHW 
8670 
8680 


JSR FLY 
JSR'BRD 


LDA FLYMQVE 
BEQ GETFLY 
LDft FLYXLO 
STft $D00C 
LDft FLYXHI 
BEQ NEXTFLY 
LDft $D0!0 
ORA #64 
STft $D010 
JMP NXTFLY2 

LDft $D010 
AND #255-64 
STft $D010 

LDft #108 
STft $D00D 
LDft WINGFLY 
BEQ LOFLY 
LDft #219 
STft I07FE 
JMP MVFLY 

LDft #220 
STA $07FE 

LDft WINGFLY 
EOR #1 
STft WINGFLY 

DEC FLYDEL 
BNE NOMVFLY 


8690 

8700 

8710 

8720 

8730 

8740 

8750 

8760 

8770 

8780 

8790 

8800 

8810 

8820 NOMVFLY 
8S30 
8840 
8850 

8860 GETFLY 

8870 

8880 

8890 

8900 

8910 

8920 

8930 

8940 

8950 CHKFLY 

8960 

8970 

8980 

8990 

9000 

9010 NOTFLY 
9020 
9030 
9040 

9050 BRD 

9060 

9070 


LDA FLYSPD 
STA FLYDEL 
DEC FLYXLO 
LDA FLYXLO 
CMP #$FF 
BNE NOMVFLY 
DEC FLYXHI 
LDA FLYXHI 
BPL NOMVFLY 
INC FLYXHI 
INC FLYXHI 
LDA #0 
STA FLYMDVE 

RTS 


LDY FLYPOS 
DEC FLYDEL 
BNE NOTFLY 
INC FLYPOS 
LDA RANDTAB,Y 
BPL CHKFLY 
LDA #0 
STA FLYPOS 

CMP #1 
BNE NOTFLY 

LDA #1 
STA FLYMOVE 
RTS 


AS PROMISED, THIS MONTH'S 
exiting installment concerns 
the FLY and BIRD. These two 
routines are very similar and 
therefore it will suffice to ex¬ 
plain just one in detail. As 
usual, the first step is to insert 
calls to the routines in the main 
loop at the start. Lines 1540 and 
12550 do this. 

The first two lines check 
whether the fly has started to 
move yet. If not (FLYMOVE = 0) 
a branch is made to GETFLY, 
which we will come to later. 
FLYXLO thefly's X position (low 
byte), is stored in $D00C (X 
position of sprite number six). 
The next nine lines check 
FLYXHI, the X position's high 
bit, and either set or reset bit six 
of $D010 (most significant bit of 
the sprite's X co-ordinate). 

Stored at $D00D is 108, the 
fly's Y co-ordinate, which does 
not alter (our fly hasn't heard of 
wind currents yet!). 

The fly has two frames of 
animation stored at sprite 
definitions 219 and 220. 
WINGFLY is a variable which 
alternates in value between 
zero and one. Depending on 
this value either 219 or 220 is 
stored in $07FE (sprite six defin¬ 
ition pointer). Following this, 
WINGFLY is 'Exclusive Or'ed 
with one to reverse the value. 

The next 15 lines are 
concerned with the fly's 
movements. FLYDEL, as its 
name suggests, is a delay 
counter. When it reaches zero, 
the fly's speed, FLYSPD, is 
restored into FLYDEL ready for 
the next time. Next the X co¬ 
ordinate is reduced by ope. If it 
is equal to 255 then the fly has 
either just come on to the 
screen or gone off it. The high 
bit of the X co-ordinate is 
decreased and if the value is 
not negative then the fly is on 
the right side of the screen and 
nothing needs to be done. If, 
however, it is negative, then 
the fly has gone off the left side 
of the screen and so the high 
bit is increased upto one again, 
ready for its next appearance, 
and FLYMOVE is reset to zero. 


The latest section is only 
called if the fly has not yet 
started to move. FLYPOS 
contains the position of the 
current value in the random 
number table RANDTAB, and if 
FLYDEL has reached zero then 
this value is checked to see if it 
is positive or negative. A 
negative number indicates that 
the end of the table has been 
reached, and that FLYPOS 


needs to be reset to zero, the 
start of the table. If the value is 
psoitive it is checked to see if it 
is zero or one. If the value is 
zero, then nothing happens, 
and we return tothe main loop. 
If the value is one, however, we 
store a one in FLYMOVE to start 
the fly moving again. 

There are few changes to 
the above routine involved in 
printing and moving the bird - 


BRD - such as different sprite 
definitions and speed of 
movement. By comparing the 
two it is easy to see how they 
differ. 

To execute the code, follow 
the same steps as outlined in 
the last issue. Next issue will 
provide a routine to updatethe 
status panel at the bottom of 
the screen. 
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DISK TO TAPE • TAPE TO TAPE • TAPE TO DISK • 


Programming 



Jv -- - 

9240 

STA $D00F 

9530 

INC BRDXHI 

* 

- HtV li 

9250 

LDA KINGBRD 

9540 

INC BRDXHI 



9260 

BEQ LQBRD 

9551 

LDA #0 


v\ fi 

9270 

LDA #221 

9560 

STA' BRDKOVE 



9280 

STA $07FF 

9570 NONVBRD 



y 

9290 

JMP MVBRD 

9580 

RTS 


mjW 

9300 LOBRD 


9590 

# 


Jl'W 

9310 

LDA #222 

9600 

i 



9320 

STA $07” 

9610 GETBRD 




9330 iIVSRD 


9620 

* 


Aj 

9340 

DEC BRDWDEL 

9630 

LDY BRDPCS 



9350 

BNE NOCHWE 

9640 

DEC BRDDEL 



1 9360 

LDA #255 

9650 

BNE NOTBRD 

9080 

LDA BRDMDVE Jl 

9370 

■STA BRDWDEL 

9660 

INC BRDPOS 

9090 

BEQ GETBRD 1 

9380 

LDA WINSBRD 

9670 

.DA RANDTAB.Y 

9100 

LDA BRDXLQ 

9390 

EOF; #1 

9680 

BPL CHKBRD 

9110 

STA $D00E 

9400 

STA WINSBRD 

9690 

LDA #0 

9120 

LDA BRDXHI 

9410 NOCHWE 


9708 

STA BRDPOS 

9130 

BEG NEXTBRD 

9420 

DEC BRDDEL 

9710 CHKBRD 


9140 

LDA JD010 

9430 

BNE NQMVBRD 

9720 

CUP #1 

9150 

QRA #128 

9440 

LDA BRDSFD 

9730 

BNE NOTBRD 

9160 

STA $D010 

9450 

STA BRDDEL 

9740 


9170 

JMP NXTBRD2 

9460 

DEC BRDXLO 

9750 

s _ 

9180 NEXTBRD 


9470 

LDA BRDXLO 

9760 

LDA 11 

9190 

LDA $0010 

9480 

CNF' #$FF 

9770 

STA BRDMDVE 

9200 

AND #255-128 

9490 

BNE NONVBRD 

9780 NOTBRD 

RTS 

9210 

STA $D010 

9500 

DEC BRDXHI 

9790 

. 

9220 NXTBRD2 


9510 

LDA BRDXHI 

9800 FINISH 


9230 

LDA #108 

9520 

BF’L NONVBRD 

9310 

.END 


COMMODORE 64 • TRANSFER ALL MAJOR TURBOS •AUTOMATIC • NO USER KNOWLEDGE 


LOOK AT DOSOFT’S NEW OFFERINGS 
AND SEE WHAT’S IN THEM FOR YOU 


‘The best transfer utility of the lot ’ 

Your 64 


H MegaTransfer Disk 

Our complete collection of tape to disk 
transfer utilities covers all the major turbo 
loading systems, including the latest 
combination picture/stripe loaders, and 
individual routines for unusual loaders. 

• Now incorporates DISKUS 1 (previous 
price £ 11 ) for your standard load tape 
collection • All transfer is automatic 

• No special hardware or user knowledge 
required • Efficient use of disk space 

• Transferred programs reload independently 

• MegaTransfer Disk will transfer programs 
which NO other utility will handle • An 
essential purchase. Don’t confuse MegaTransfer 
with similar utilities 
which have severely *1 
limited capabilities. d&X / 

H MegaUtility Disk 

A handy collection of utilities to make the 
best of your IS 41 and 64 . Verv fast. Verv 
convenient • Alpha Load Disk Turbo 
Loader. Load \ our programmes at over 
FOUR times the normal rate. Example: 200 
blocks. Normal speed 130 seconds. With 
Alphaload just 30 seconds. • Fast Copy 

Backup a whole disk in just 3 minutes. 77-7- 7 -„ „ „ 

Not for heavily protected commercial disks. SAVE! SAVE! SAVE! When you buy any two HOW tO get your DoSoftware 

• Turbo File Copy copy selected programs of MegaTransfer Disk, MegaUtility Disk, All programs for Commodore 64. 
from your disks at TURBO speed. • Fast or Disk-to-Tape Plus just £24.00 (single Send SAE for full details or cash/ 

" ~ - disk), or All Three at £29-99 save £12 cheque/PO for fast despatch to: 

Or save £3 3 on our Complete Collection DoSoft (Dept YC), 2 Oakmoor Ave, 
(every program in this Ad, including Blackpool FY2 OEE 

Professional Disk-to-Tape and MegaTape UK postage included. Europe add 75p 
at only £39.99 (single disk). Overseas add £1.50 for airmail. 



ax 


AND SAVE MONEY TOO! 


Format Format your new disks at TURBO 
speed. • Pro Sprite A high class sprite 
library/editor. 100% 
machine code. 1! 1 0 50 

Joystick control. dbX • 


H Disk to Tape Plus 

A versatile collection of Disk-to-Tape routines 
for single and multipart programs. Featuring 
our new tape turbo loader with Visible 
Screen and stripey border • Automatic 
disk to tape • Outputs program sections to 
tape as they load from disk • Selective disk 
to tape transfer with or without bootloader 

• Maximum file length 207 blocks 

• Not for protected commercial disks. 

• Professional version available—includes 
mastering scheduler ^ ^ ^ 

and duplication X 50 

rights—£25.00 oVAA** 

IB MegaTape 

An outstanding new Tape-to-Tape utility for 
fast loading programs. • Covers all the 
major loading systems • No extra hardware 
required • All you need is a Commodore 64 
and one tape deck • No user knowledge 
required • Transferred programs load 
independently at Turbo speed with Visible 
Screen and stripey border • Double 
Value— incorporates RBS Plus to convert 
your slow load programs to turbo load 

• Also handles RBS and £050 
Fastback programs. 3b J • 

DoSoft 

You’ll Do it Better 
with DoSoft 


• FAST DISK UTILITIES • LOADERS • 3-MIN DISK COPY • FAST DISK FILE COPY • FAST FORMAT < 


• NO HARDWARE • TURBO IDENTIFIER • AUTO LOAD OPTIONS 



















Weekend Break 


BASIC TRAINING 



We sent our roving reporter, 
Marie Curry, on a 
Commodore computer_ 

weekend. Here’s her reaction. 


AS ONE OF THOSE UNFORTUNATE 
people whose education was woefully 
lacking when it comes to the computer 
revolution, I reached the stage where I 
began to feel that I should not let the 
march of technology just stompt right 
over me. I then heard about computer 
weekends run by a company called 
Ardmore Adventure — better known for 
its involvement in children's activity 
camps. I signed up for a weekend at the 
Crest Hotel in High Wycombe and it was 
with no small amount of trepidation that I 
set off to attend on a freezing cold Friday 
in February. 

The actual course begins on Saturday 
morning, but I decided to go on the Friday 
in order to get my bearings and to meet 
some of the people who have the 
mammoth task of organising the weekend 
breaks. All the equipment must be set up 
in advance and, of course, it has to be 
shipped in since Crest Hotels aren't 
normally provided with enough 
Commodore computers to keep 50 micro 
enthusiasts happy for 48 hours. 

The aims of the course are simple. You 
should attend with the intention of doing 
exactly as you please as long as it's 
connected with computers. If you want to 
tackle advanced machine code 
programming then there'll be somebody 
there to help you. Alternatively, if you're 
completely computer illiterate, like me, 
then you can start on the absolute basics 
of Basic and work your way up. 

The whole weekend package includes 
accommodation and meals but if you 
don't want to stay at the hotel and mix 
with your fellow victims outside of study 
hours then you can go somewhere else 
and pay only the tuition fee. 

I decided togo for the all-singing, all¬ 
dancing, meals and microchips inclusive 
version — and I wasn't disappointed. 

The Surroundings 

I spent a very pleasant two days in the 
Crest Hotel in High Wycombe. The 
accommodation was clean and 
comfortable and the service was fast and 
efficient, executed with a lavish amount 
of goodwill. During a sub-zero February 
weekend (you remember those!) there 
wasn't so much as a hint of a draught. 

The course was exceedingly hard work 
and after a whole days brain drain it was 
nice to know that there was a decent meal 
waiting and a good night's sleep. 

Two sizeable rooms had been set aside 
to accommodate the huge amounts of 


electronic equipment which had been 
bought in to cope with the large numbers 
of 'students' who were attending that 
weekend. One room was allocated to the 
under 14s and the other was for the more 
mature students. By Saturday morningthe 
jumble of wires, polystyrene cardboard 
and plastic which had infested the rooms 
on Friday evening had been transformed 
into a very spruce looking set-up with 
Commodore 64s and 128s adorning tables 
around the walls. 

In the lobby outside there was a 
plentiful supply of tea, coffee, biscuits and 
orange squash for those who fell by the 
wayside and had to have a break for 
resuscitation. There was a morning break 
for coffee and an afternoon break for tea, 
just like those long ago playtimes at 
school. These were quite productive in 
themselves as everyone was able to get to 
know each other and compare notes. 

The Mentors 

You may possibly have heard of Ardmore 
Adventure before reading this article, 
since for some time the company has 
been involved in running children's 
adventure holidays. 

The first computer weekend was held 
in April 1985 and more have been run at 
regular intervals since then. Ardmore had 
realised — through contact with parents 
— that many adults were uneasy with 
computers and suffered from that disease 
which is common among those of us who 
are no longer teenagers — technophobia. 
It must be very frustrating for parents with 
school age children to realise that there is 
one homework subject on which they can 
give absolutely no useful advice at all. 


The weekend I attended was graced 
with six exceptionally gifted Ardmore 
staff who come from a variety of walks of 
life and dedicate their weekends to the 
alleviation of the sufferings of those who 
are less hi-tech than themselves. 

Doug Gregory, who is a teacher by 
trade, oversees operations, and he is ably 
assisted by Eric Doyle — computer 
journalist, photographer and 
experienced programmer. Paul and 
Keith, both college students studying 
computer related subjects,takethe junior 
class (commonly referred to by Ardmore 
staff as the advanced group!). Beginners, 
like myself, are assisted by Lee, who is also 
involved in education in his other life and 
John who claims to be an estate agent 
from Monday to Friday. As I said, a mixed 
bunch but a very well chosen and able 
group of advisors. The course was running 
at maximum the weekend I attended but 
no matter how few pupils sign up there 
will never be less than two staff. 

As I mentioned earlier, when the 
course begins you are told that you can 
really do as you please. This is the only 
rule which must be adhered to at all times. 
With such a diverse mixture of staff 
available, there is always someone who 
can advise you on any subject under the 
Commodore sun. I began on Saturday 
morning as an absolute beginner and I 
like to think that by Sunday evening I was 
no longer exactly that. 

The Enthusiasts 

The weekends attract an incredible 
variety of people and the one which I 
attended was especially diverse since 
many of those present had actually won 
their weekend break in a Commodore 




































Weekend Break 


spot the ball competition (yes, people do 
actually win them!). 

What I found most surprising was that 
there were people present who had never 
even touched a computer in their lives 
before — even I have a certain amount of 
hands-on experience. 

These particular individuals were 
usually those who wanted to find out a bit 
about computers before actually 
investing their hard earned money in one. 
It seems to me an eminently sensible idea 
since if you don't know the difference 
between hardware and software and 
you've never even seen a disk drive then 
the task of choosing and purchasing a 
computer from the enormous variety at 
present available on the market is 
daunting at best and terrifying at worst. 

At the other end of the spectrum were 
those who owned C64s, knew their way 
around the keyboard fairly well, had a 


grasp of Basic, possibly a smattering of 
machine code and had come to a sort of 
halt in their self-teaching programme. The 
weekend for these types, regarded by 
myself as the boffins of the group, 
provided the consolidation of their 
knowledge and the pointers they needed 
to set them leaping ahead once more. 

I have been involved in the computer 
industry for some time and the 
individuality of those I come into contact 
with has never ceased to amaze me. A 
policeman, a lady who runs an aquatic 
garden centre and an animal nutritionist 
were just three of the people who were 
thrown together for a weekend with 
nothing in common bar an interest in 
computers. If you were to deal with the 
weekend merely in human terms, it 
provided a chance to associate with some 
very interesting and intelligent people 
but of course there was much more to it 
than that. The most important part is still 
to come. 


The Curriculum 

The course has no strictly formal 
structure. Probably the best way to give 
you some sort of idea about what is 
available is if I detail how my teaching was 
arranged and what I was able to get out of 
it. 

It would be impossible to have an 
inflexible curriculum since the organisers 
have no idea what sort of span of abilities 
they wil be dealing with, in terms of 
micro-knowledge, until everyone turns 
up on the first day. 

The initial task for everyone is to 
declare themselves an absolute beginner 
or otherwise. I was the former and so I was 
treated to a well planned and instructive 
two hour tutorial on Basic. I was sharing a 
C64 with a brilliant fellow illiterate called 
Letty and together we managed to 
progress through our tutorial sheets in 
leaps and bounds. 


These sheets were compiled by Doug 
Gregory and are concise and very well 
structured. They deal with Basic in simple 
steps giving practical exercises for 
illustration. Fundamentally, thesheetsare 
designed to make you feel at home with 
the computer and also with very simple 
Basic. They also serve to enable you to 
become familiar with the 64 which is very 
important when so many people feel 
nervous when confronted with a 
computer keyboard. 

After about 90 minutes my partner and 
I had managed to write and run a simple 
maths program for testing arithmetic. 
When we typed it in and it ran first time 
we felt like geniuses. The greatest asset of 
the course is that if you do get stuck then 
there is always someone within shouting 
distance who will be at your elbow in a 
few seconds to sort out your problems. 
This saves much poring over hot 
keyboards and much sweating over 
confused listings. 


After a sumptuous lunch we returned 
for more intellectual stimulus and found 
that we were about to be introduced to 
Logo. 

Logo is a language which is often used 
in schools to teach young children the 
type of logical thought which is necessary 
when working with computers. Logo is 
very simple to learn as a concept and I 
found that I was soon guiding my turtle 
around the screen and happily defining 
my own commands. I began to feel very 
self-confident about using it and for 
someone who has very little experience, it 
is a useful tool, although after about an 
hour I began to feel rightly or wrongly — 
that its uses are very limited. My fellow 
sufferers also seemed to be getting the 
hang of it fairly well, although whether 
this was due to the graphic human turtle 
demonstration with which the class 
kicked off will probably never be known! 

When you felt that things were getting 
perhaps just a little bit tedious, one word 
would see you whisked away to 
something different but equally 
instructive. During the afternoon period 
my fellow students became re-involved in 
Basic, learnt the wonders of music 
programs on the 64 of just had a quick go 
at Impossible Mission for some not so 
light relief. 

While I was becoming immersed in 
Basic and Logo, the two other groups 
were in session. The children's section of 
the course was held in a next door room 
and I presume that it was sound-proofed 
in some way as hardly a murmur was 
heard from that vicinity all weekend. 
Most of the under 14s had a vast amount 
more experience of computers than their 
adult counterparts and were perfectly at 
home with the electronic beasties. They 
too could come and go as they pleased to 
a certain extent although supervision was 
such that parents had no worries about 
the welfare of their offspring. 

The advanced group, under the 
guidance of Eric Doyle, were learning 
more about machine code and having a 
look at some more complicated 
programs. Many of them bought their 
own programming problems with them 
and these were dealt with indue course so 
that they were able to go home at the end 
of the weekend with the necessary 
knowledge to continue their machine 
code masterpieces. 

Sunday was not a day of rest. It was 
dedicated to the teaching — in the 
beginners group — of the use of Easy 
Script, Commodore's word processing 
package. This may sound a little odd, to 
devote a whole day to the use of a word 
processor, but I think there was a lot of 
sense behind this. Many of those present 
were looking into the possibility of buying 
a computer to help them with eithertheir 
own small businesses or merely their 
domestic administration. Using a word 
processor shows you very quickly and 
simply what can be done with very little 

















knowledge and illustrates the power of 
the many software utilities packages 
which are available at the moment for the 
64 and hopefully in the fairly near future 
for the C128. 

By the time we finished for tea on 
Sunday evening I knew that I would be 
able to return to the office and impress 
everyone with my technical knowledge 
which had definitely increased one 
hundredfold since I left on Friday 
afternoon. 


To be honest, it is very difficult to find 
any specific criticisms about the weekend. 
Perhaps a little too much time was 
devoted to Logo but then I could have 
stopped doing that and gone on to an 
alternative occupation if I had been really 
bored. I would have liked to improve my 
handling of Basic a little more but it was 
only lack of time that prevented me from 
doing so. 

As a weekend with a difference, it's 
very enjoyable. And as a course in 


computing it's very instructive. If you 
have a couple of days to spare and you 
want to use them constructively, I 
thoroughly recommend a computer 
weekend. Mind you, I'd used my brain so 
much that I had a lot of difficulty getting 
back to the grind on Monday! 

Touch Line 


Ardmore Adventure holidays are run all 
year round at the Challenge Centre, 
Llanfyllin, Powys, Mid Wales. Special 
weekend courses can also be arranged for 
groups from schools or businesses. 
Courses already arranged around the 
country in 1986 are as follows: 

High Wycombe 4-6 April, 18-20 April, 
7-9 March, 21-23 March 
Coventry 16-18 May 

Portsmouth 23-25 May 

High Wycombe 30 May-1 June 
Cardiff 13-15 June 

High Wycombe 27-29 June 

Runcorn 12-14 September 

High Wycombe 3-5 October 

Prices 


Computing course £30 
Dinner, bed and breakfast £27.50 per night 
Up to three children can be 
accommodated free when accompanied 
by two adults. 


COMMODORE 64 

EVER HAD A LOADING PROBLEM? 

Then send off for WIZARD’S TAPE HEAD ALIGNMENT KIT-Nooneshould be without 
one! 

The most common cause of loading failure is bad alignment of your tape heads. This 
kit allows you to set up the tape heads of your cassette unit for the best possible loading 
conditions. In many cases this will make a remarkable difference in loading reliability. 
Our kit comprises of: 

1) A precision recorded cassette containing a sophisticated test program. 

2) A special adjustment screwdriver. 

3) A direction indicator. 

4) A turning meter. 

5) A detailed instruction booklet with diaarams. 

6) A Loading Doctor - to help diagnose any loading problems. All of this for only £6.95!! 

COPY KING — PLUS 

* Revolutionary new copier for FAST LOADING programs. 

FREE this month a suite of additional back up routines. 

Striped loaders, Picture loaders etc. handled with ease. 

* Back up copies are made on blank TAPES at fast speed (faster than disc)! 
Extremely easy to use - no technical knowledge required. 

* No additional hardware and no second cassette recorder are required. 

We believe this 100 o/o machine code copier is unrivalled in performance. 

* Buy the market leader. Great value at £7.95. 

BARGAIN JOYSTICKS!!! 

Incredible value - Brand new Quickshot II Joysticks at only £8.45 including P&P. 
Features include - ‘Autofire ‘Thumb and trigger finger fire buttons. ‘Built in suction 
cups. ‘New improved design. ‘Fits any computer with Commodore/Atari joystick 
ports. (Not the plus 4/Cl6.) 

HALF PRICE SPECIAL THIS MONTH!!! 

Copycat and Lightning Load together for only £5.95. Usually £5.95 each. COPYCAT - 
our highly popular tape to tape back-up copier for Commodore/standard rate loading 
systems ‘Wizard sound effects. Cassette magic sense ‘Thousands sold. 

LIGHTNING LOAD II - Converts almost all your slow loading games/programs into 
SUPERFAST TURBO loading versions on tape * The tedious wait for loading is over 
when you buy this excellent program. 

RAPID dispatch of orders. 

All prices INCLUDE £1.00 for administration and U.K. P&P. Europeans please ADD 
50p. Outside Europe ADD £1.00. Overseas orders welcome. All payments must be in 
pounds sterling. 

Cheques/POs to: 

WIZARD SOFTWARE (Dept. B) 

59, THE MARLES, EXMOUTH, DEVON EX8 4NE 


EXTENSION 64 

★ SUPERB INTERRUPT DRIVEN SPRITE CONTROL 

★ UP TO 64 SPRITES ON SCREEN SIMULTANEOUSLY 

★ AUTOMATIC MAZE RUNNING FEATURE 

★ AUTOMATIC ANIMATION 

★ AUTOMATIC JOYSTICK/KEYBOARD SPRITE CONTROL 

★ MODE SELECTION WITH A SINGLE COMMAND 

★ PRINT DIRECTED TO HIRES SCREEN IN BIT MAP MODES 

★ PLOT, DRAW, CIRCLE, BOX GRAPHICS COMMANDS 

★ EASILY IMPLEMENTED SPLIT SCREENS AND SCROLLING 

★ INTERRUPT DRIVEN SOUNDS, WITH QUEUEING 

★ RENUMBER, AUTO, DELETE, RESTORE LINE NUMBER etc. 

★ BLOCK SAVE/LOAD, DISK/TLOAD COMMANDS 

★ HEX & BINARY, BIT TEST/SET/RESET, DEEK/DOKE 

★ IMPROVED ERROR HANDLING, ON ERROR GOTO/GOSUB etc. 

★ IF ... THEN ... ELSE, WHILE ... WEND, REPEAT ... UNTIL 

★ PROC, DEFPROC, ENDPROC FOR BETTER STRUCTURE 

EXTENSION 64 completely eliminates the need for all those unintelligi¬ 
ble PEEKs and POKEs and provides easy control of ALL the C64's 
features. The carefully designed and very powerful new commands 
make extensive use of the C64’s interrupts to do a lot of the work auto¬ 
matically, “behind the scenes”. For example, if you top up the sound 
queue you can play a three-part tune in strict tempo while you list and edit 
your program. 

EXTENSION 64 is available on cassette, disk or cartridge complete with 
manual and six demonstration programs at the special introductory price 
of:— 


Cassette.£7.95, all inclusive 

Disk.£9.40, all inclusive 

Cartridge.£14.95, all inclusive 


Send cheque or PO or phone Access/Visa details to: 

KNIGHT SOFTWARE (Dept YC) 

24 Badger Lane, Ingleby Barwick, Stockton-on-Tees TS17 ORN 
Telephone (0642) 762540 



















Save the Galaxy from the evil Alana 

in 




A Strategic Action Adventure in Metaspace 


m utihri 


SPECIAL FEATURES include: 

★ 12 Arcade and Strategy games 
in One Program 

★ 1 □,□□□ Metaspace locations 

★ Superb sound and 3D graphics 

★ A major battle of wits 


STARSHIP ANDROMEDA The final frontier in space exploration 

OUT NOW 


Available from all good software retailers — if it’s not there, please order it — or in case of 
difficulty send your crossed cheque/P. 0. made out to Ariolasoft U.K. Ltd., including your own name 


and address, to Ariolasoft U.K. Ltd., 68 Long Acre, London WC2E 9JH. 
STARSHIP ANDROMEDA C64 disk £12.95 - C64 Cassette £9.95 

UK orders only. Prices include P&P. Please allow 28 days for delivery. 
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HIGH PERFORMANCE PROGRAMS 











Gordon Hamlett has been 


kicking and punching his way 


through US Gold’s Kung Fu 


Master 


000900 


and it requires several blows before you 
can get his energy level down to zero. If 
you have killed all the baddies on a 
particular level and then beaten the 
guardian, you can reach the stairs and so 
gain access to the next level. Starting a 
new level gives you a chance to get your 
breath back as well as resetting your clock 
and energy bar. 

Points are only awarded if you dispose 
of your opponent cleanly i.e. you don’t 
have to wrestle to get him off. How much 
you score depends on how many blows it 
takes to kill them and what move you 
used. Punches and flying kicks score more 
than ordinary kicks. 

Your opponents on the second level 
are of a totally different nature. Falling 
balls and vases contain snakes and 
dragons and mystic globes explode 
around you. Falling objects can be 
destroyed with jumping kicks or you may 
prefer to run out of the way of the 
dragon’s fiery breath. Snakes can’t be 
killed but must be jumped over. Dwarves 
also appear who, given the chance, like to 
somersault on to your back and sap your 
energy. 

The next levels introduce the only 
other kind of nasty to be met in the game - 
killer bees. These can be killed with a 
single kick or punch. The baddies start to 
appear in combinations now and you Will 
need very fast reactions if you are to 
succeed. 

Kung-Fu Master is an addictive, 
enjoyable game to play. A lot of this is due 
to the fact that it’s easy to get into and I 
can see it as the sort of game people will 
load in for a quick half hour of mindless 
violence. The graphics are colourful 
although quite chunky. All this to the 
accompaniment of a relentless tune and 
good sound effects. 


There is of course a price to be paid for 
your error of timing. This is in the form of 
loss of energy. In the top left hand corner 
of the screen are two bars representing 
energy levels for you and your adversary. 
Should your energy drop to zero, you lose 
one of the three lives. 

Each level must be completed within a 
certain time limit. A clock starts off at two 
thousand and quickly counts down 
towards zero. Failure to reach the stairs at 
the end of the time limit again results in 
the loss of a life. If you do reach the stairs 
in time, you receive a bonus based on the 
amount of time you- had left and the 
amount of energy. Score 40,000 points 
and you gain an extra life. If you lose a life, 
you must start that particular level from 
scratch again but your clock and energy 
bar are restored to full values. 

Most of your opponents on the first 
level are henchmen who can be easily 
despatched with a single kick or punch. 
Occasionally, you will come across a man 
throwing knives at you. These you must 
duck under or jump over and then move 
in close to dispose of your enemy, who 
requires two blows to defeat him. At the 
end of each level is a guardian. He may be 
armed o^ simply vicious but one thing you 
can b re of is that he is tough to beat 


YET ANOTHER PRINCESS IS IN NEED OF 
rescue. Using all your Kung Fu skills, you 
must battle your way through five floors 
of the wizard’s temple in order to rescue 
her. As is only to be expected, the wizard 
has arranged a welcoming committee for 
you to try and ensure that you don’t 
succeed in your quest. 

Control of your character is simplicity 
itself. Leaving the joystick button alone, 
you can move left and right, jump and 
duck. Holding the fire button down puts 
you into an offensive mode and you can 
now aim kicks left and right as well as 
performing a jumping kick and a 
squatting kick. If you press the space bar 
this toggles the action between kicking 
and punching left and right, jumping and 
squatting punches. 

Timing is the essence of successful 
squat. Judging your punch or kick cor¬ 
rectly and your opponent will crumple 
instantly, to the accompanying sound of a 
very realistic “thwack”. But one of the 
nice things about this game is that you can 
get away with mistiming a few blows. If 
that happens, an opponent will attempt to 
grapple with you. You can break his 
} rasp by waggling your joystick furiously. 

























Listings will be much easier to 
enter with our new system. 



LISTINGS 


COMMODORE LISTINGS ARE RATHER 
well known for the horrible little black 
blobs that always abound. Unfortunately 
the graphics characters which are used to 
represent graphic and control characters 
do not reproduce very well and they are 
also difficult to find on the Commodore 
keyboard. 

In future all control and graphics 
commands will be replaced by a mnemonic 
within square brackets. This mnemonic is 
not typed out as printed in the magazine 
but rather the corresponding key or keys 
on the keyboard are pressed. For example 
[RIGHT] means press the cursor right key, 
you do not type in [RIGHT]. All of the 
keywords, what keys to press and how 
they are shown on the screen are shown 
below. 

Any character that is accessed by pressing 
shift and a letter will be printed as 
[Sletter]. 

[SA] shift and A 
[S+] shift and + 

Any character that is accessed by 
pressing the Commodore key and a letter 
will be printed as [Cletter] 

[CA] Commodore and A 
[C+] Commodore and + 

[Cl] Commodore and 1 


If any characters are repeated the 
mnemonic will be followed by a number. 
This number is how many times you 
should enter the character. Any number 
of spaces over one will also be 
' represented in this form 
[RIGHT10] press cursor right 10 times 
[C+10] press Commodore and + 10 
times 

[SPC10] Press the space bar 10 times 


Any other characters should be easily 
recognisable for example CTRL-N means 
press CTRL and N and LEFT-ARROW 
means press the left arrow. 

Any number of mnemonics can be 
enclosed in brackets for example 

[SA10,SPC10,SA10] 

means type 10 shift A's 10 spaces and 
another 10 shift A's. 


























































































































































































































In part three, Allen Webb 
adds more to your growing 

machine code skills. 


WELCOME TO THE 



HELLO AGAIN, READY FOR YOUR NEXT 
dose of ecstasy? Well, last month's 
homework was pretty simple, wasn't it? 

Question one really followed on from 
the simple example in the last part. It 
simply writes CAT in white letters in the 
top left hand corner of the screen. It won't 
take much looking, however, for you to 
notice that it's a rather poorly written 
routine. By the end of this month's 
episode you'll be able to write it in a much 
slicker way. 

Listing 1 shows the routine again 
written using the format of the HYPA 
Basic assembler (see Your Commodore 
March issue). Lines 110 to 160 put the 
"POKE" values of C, A and T on to the 
screen. Lines 170 to 200 colour the letters 
white. 


Listing 1 

10 ASSEMBLE 100,1 
100 REM *=$C000 
110 REM LDA 3 
120 REM STA $0400 
130 REM LDA 1 
140 REM STA $0401 
150 REM LDA 20 
160 REM STA $0402 
170 REM LDA 1 
180 REM STA $D800 
190 REM STA $D801 
200 REM STA $D802 
210 REM RTS 
220 REM ] 


Question 2 actually asks you to write a 
routine. Listing 2 gives one solution. 
Location 1000 holds a value which is put 
into the screen colour. 

You call the routine with: 

POKE 1000,COLOUR: SYS 49152 


Listing 2 

10 ASSEMBLE 100,1 
100 REM *=$C000 
110 REM LDA 1000 
120 REM STA $D021 
130 REM RTS 
140 REM ] 

Lastly, question 3 asks you to play 
games with the border colour. Listing 3 
does this. The Y register holds the border 
colour and is incremented to change the 
border. 



Listing 3 

10 ASSEMBLE 100,1 
100 REM *=$C000 
110 REM LDY £2 
120 REM STY $D020 
130 REM INY 
140 REM STY $D020 
150 REM INY 
160 REM STY $D020 
170 REM RTS 
180 REM ] 


If you try this routine, you will not 
notice any effect except for the border 
turning purple. This is simply due to the 
speed of the routine. If you repeatedly 
call the routine as with the Basic line: 


Listing 3. The instruction CPY £4 
assembles to two bytes. The first byte is 
the code for CPY (ComPare Y). The 
second byte holds the number of bytes 
through which the program counter must 
be adjusted to jump back to the label 
LOOP (offset). I don't intend to go into 
how the offset is calculated since most 
assemblers and disassemblers deal with 
the problem for you. CPY can be used in 
three addressing modes: 

Absolute, for example CPY $100 
Immediate, for example CPY £2 
Zero Page, for example CPY $FF 

Naturally, there is an equivalnent 
command for the X register: 

CPX (ComPare X) 


10 SYS 49152: GOTO 10 

You will see a purple border with inter¬ 
mittent lines. 

Again, this is a messy bit of program¬ 
ming. Let us consider a simple loop. In 
Basic, you loop by testing a variable and 
branching to a specified line. Machine 
code uses a similar approach. Consider 
Listing 4: 


Listing 4 

10 ASSEMBLE 100,1 

100 REM *=$C000 

110 REM LDY £2 

120 REM .LOOP: STY $D021 

130 REM INY 

140 REM CPY £4 

150 REM BNE LOOP 

160 REM RTS 

170 REM ] 


Line 110 sets the Y register to the initial 
value. Line 120 sets the border colour. 
Line 130 increments the Y registerand line 
140 compares the Y register to four. If 
thevalue of the Y register is not equal to 
four then the code jumps to the label 
LOOP and continues execution. When 
the Y register contains four, the routine 
ends. This is a much better routine than 


You will still find that the routine is still 
pretty fast. As is the case with many 
applications, you may find it necessary to 
slow down machine code. A crude 
method is to use the NOP (No Operation) 
instruction. This instruction does 
absolutely nothing! Surprisingly enough, 
it has some uses: 

1) To deliberately introduce minute 
delays to fine tune timing. 

2) To eliminate unnecessary code without 
reassembling your code. 

Perverts who write using an assembler 
based in a machine code monitor will use 
NOPs often since it's an easy way of 
leaving space for additions to code. Try 
stuffing a few NOPs in listing 4 between 
lines 120 and 130 and see what happens. 

Last month I described the simplest 
addressing modes. Whilst they are inval¬ 
uable, their versatility is limited. The next 
mode uses a simple indexing with the X or 
Y register. Depending on the memory 
locations position, this acts in either 
absolute or zero page modes. Here are 
some examples: 

Absolute Y indexing LDA $1000,Y 
Zero Page X indexing STA $OD,X 

This mode is quite simple to 
understand. The Y or X register acts as a 
counter specifying an offset from the 
specified address. The microprocessor 
adds the offset to the address and 









































changes, direct data movement will be 
necessary. 

The main drawback with simple 
indexing is that you specify the start 
address in the object code and this can 
only be changed by directly altering the 
object code when the code is running. In 
otherword, like rewriting a Basic program 
while it's running. Whilst this isa perfectly 
acceptable technique. I'm not that keen 
on it. A better approach is to use an alter¬ 
native indexed mode called Post-Indexed 
Indirect Addressing. This is rather a grand 
name for a fairly simple idea. In simple 
indexed addressing, you will recall that 
we specified the address concerned in the 
mnemonics, eg: 

LDA $1000Y 


Listing 5 

10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDY £0 

110 REM .LOOP: LDA TABLE,V 

120 REM JSR $FFD2 

130 REM INY 

140 REM CPY £3 

150 REM BNE LOOP 

160 REM RTS 

170 REM ,TABLE:$CAT 

180 REM ] 


performs the instruction on the resulting 
address. Consider the instruction: 

ST A 1024,Y 

If the Y register contains 0, then the 
accumulator will be stored in location 
1024 (1024+0=1024). If the Y register 
contains 1, the accumulator will be stored 
in location 1025 and so on. It therefore 
follows that we have a simple way of 
performing actions on a row of locations 
of up to 255 characters length (Y and Xare 
8 bit registers - remember?). This can be 
used to rewrite program one of last 
month's homework. Consider listing 5: 


Listing 5 

10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDY £0 

110 REM .LOOP: LDA TABLE,Y 

120 REM STA $0400,Y 

130 REM LDA £1 

140 REM STA $D800,Y 

150 REM INY 

160 REM CPY £3 

170 REM BNE LOOP 

180 REM RTS 

190 REM .TABLE: £8:3,1,20 
200 REM ] 


Line 190 holds the “POKE" values of 
CAT as a table of three bytes. We enter the 
routine with Y containing zero. During 
the first pass, the accumulator is loaded 
with the first byte in the table (line 110) 
and this is put in the top left hand corner 
(line 120). The colour screen isset to white 
(lines 130 and 140). The Y register is incre¬ 
mented and loops back to process the 
second letter, if its value is not equal to 
three (line 160). 

This, I hope you'll agree, is neater than 
the original version. Whilst the size is not 
greatly reduced, once you start writing 
large routines you'll see the difference. 

Before I move on to the next form of 
addressing, how about a small diversion? 
It won't take a lot of thought to spot that 
Listing 5, or something similar, can be 
used to print blocks of text. There are two 
ways of printing text: 

a) Direct moving of text as in Listing 5, or 

b) Printing it in the same way as printing a 
string in BASIC. 

In the C64's ROMs are two useful 
routines which can be readily used. First 
we have a routine starting at location 
$FFD2. This acts in the same way as PRINT 
CHR$(X). To use it you simply load the 
Accumulator with the character to be 
printed and call the routine. Rewriting 
Listing 5, we get: 


This prints CAT at the current cursor 
position in the current cursor colour. The 
text is stored in line 170 as ASCII codesand 
we don't need to worry about updating 
the colour matrix. The JSR (Jump 
SubRoutine) is the same as GOSUB in 
Basic. 

We can simplify matters further, by 
using a routine in the Basic ROM at 
$AB1E. This prints a whole sentence for 
you. Two requirements must be fulfilled: 

i) The sentence must end with a zero byte. 

ii) Before calling the routine, you must 
load the Y register with the most signifi¬ 
cant byte of the start address of the 
sentence, and the Accumulator with the 
least significant byte. Do I hear grunts of 
confusion. OK, here's a quick tutorial. 
Assume that the sentence starts at the 
address $C010. This is stored as two bytes, 
$C0 and $10. The high byte, $C0, is called 
the most significant byte and the low byte, 
$10, is the least significant byte. 

Here is our example again: 


Lines 100 and 110 take care of loading 
the message start address. £< means the 
least significant byte and £> the most 
significant byte. Line 150 holds the 
terminating zero byte, (try omitting it and 
see what happens!) 

We now have a very short, but rather 
slow, routine. It's slow because it uses the 
rather lengthy print routine in ROM. If 
you want to write an adventure, use the 
approach used in Listing 6. If you want to 
write a fast game with flicker free graphics 


In Post-Indexed Indirect Addressing, we 
store the address in a zero page location 
and specify that address in the 
mnemonics. Note that we use brackets to 
signify this mode: 


The action of this instruction is to add 
the offset kept in the Y register to the 
address stored in the byte pair $FB and 
load the accumulator with the contents of 
the resulting address. The address is 
stored with the low byte first as usual. 
Here is an example: 

The equivalent instructions for: 

LDA $C010,Y are: 

LDA £$10 
STA $FB 
LDA £$C0 
STA $FC 
LDA ($FB),Y 

If Y contains five, the instruction adds 
five to the address in $FB, $FC giving 
$C015. The accumulator is then loaded 
with the contents of $C015. 

Consider: 


Listing 7 

10 ASSEMBLE 90,1 

90 REM *=$C000 

100 REM LDA £<TABLE 

110 REM STA $FB 

120 REM LDA £>TABLE 

130 REM STA $FC 

140 REM LDY £0 

150 REM .LOOP: LDA ($FB),Y 

160 REM JSR $FFD2 

170 REM INY 

180 REM CPY £3 

190 REM BNE LOOP 

200 REM RTS 

210 REM .TABLE: $CAT 


LDA ($FB),Y 


Listing 6 

10 ASSEMBLE 90,1 
90 REM*=$C000 
100 REM LDA £< TABLE 
110 REM LDY £> TABLE 
120 REM JSR $AB1E 
130 REM RTS 

140 REM .MESSAGE: $CAT 
150 REM £B:0 
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Compare this to Listing 5. Lines 150 to 
210 correspond exactly to lines 100 to 180 
in Listing 5 (except for the different 
addressing of course). Lines 100 to 130 put 
the start address of the message into the 
zero page locations $FB and $FC. 

Whilst this routine is more complex 
than the earlier versions, it has one 
powerful virtue - it is easier to change the 


address processed. You should also notice 
that this addressing mode uses the Y 
register only. 

I'm sorry that this may appear a little 
complex, things should be clearer as we 
deal with further examples in later parts of 
the series. Here is a summary of the 
addressing modes described this time. 


OK, agony time. Two problems for you 
to consider. 

1. Write a routine which draws a line of 
stars along the top of the screen. 

2. Write a routine which puts the 
character set on The screen. 

Next month I'll deal with one more 
addressing mode and well move on to 
more on looping and other mysteries. 


WELCOME TO THE 
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For help with Readingand Writing 


*Zy01-405 4017 


Since1975,350,000 

adults have been helped 
to read and write better. 

If you want help look for 
this sign. 

For further information 

Adult Literacy & Basic Skills Unit 

PO Box 213 London WC1V 7ET 
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THE FINAL CARTRIDGE 




THE FIRST OUTSIDE OPERATING 
. SYSTEM FOR THE CBM 64 * 


inal multicolour full page screen 
dump print out. 


PREPROGRAMMED FUNCTION 

KEYS: - Run, Load, Save, Catalog, Disk 
commands, List (removes all list- 
protections). 


KEYBOARD EXTRA S - Allows you to 
delete part of a line; stop and continues 
listings; move cursor to lower lefthand 
corner. Pokes and Syscalls in Hex. Typ- 
command operates your printer as a 
typewriter. 


This new operating system built in a cartridge 
does not use any memory and is always there. 
Compatible with 98% of all programs. 


DISK TURBO - 6 times faster loading - 
b times faster saving. 


TAPE TURBO - 10 times faster, even 
with files - normal Commodore 
commands - compatible with standard 
turbo's. 


ADVANCED CENTRONICS INTER¬ 
FACE - compatible with all the well- 
known centronics printers and Commo¬ 
dore printer programs. Prints all the 
Commodore graphics and control codes 
(important for listings). 


SCREEN DUMP FACILITIES - of low 

res Hi-res and multicolour screens!! 

Prints full page with 12 shades of grey 
for multicolour pictures even from games 
and programs like Doodle, Koala pad, 
Printshop etc. Searches automaticly for 
the memory-address of the Picture. 
Special version available for the CBM 
801 and 803 printers. 


24K EXTRA RAM FOR BASIC- 
PROGRAMS AVAILABLE: Twu new 

commands ,,Memory read", ,,Memory 
write". They move 192 bytes with 
machinelanguage-speed anywhere in the 
64K Ram of the CBM 64. Can be used 
with strings and variables. 


BASIC 4.0 COMMANDS - like Dload, 
Dsave, Dappend, Catalog, etc. 


BASIC TOOLKIT - with Auto, Renum 
(incl. Goto and Gosub), Find, Help, Old, 
etc. 


COMFORTABLE EXTENDED ML. 
MONITOR: - with relocated load 
scrolling up and down. Bankswitching, 
etc. - does not reside in memory. 

RESET SWITCH: - resets to monitor; 
resets with old, resets to Hi-res printing; 
resets every protected program. 

ON/OFF SWITCH - we hope you never 
need that one. 

FREEZER: 


Stops and continues almost every 
program and allows you to make a total 
back up to disk or tape automatically. 

Specs: Creates one file on disk or tape. 
Packs the program. 

Freezes 4 to 6 times faster than 
dedicated freezers. 

Menu driven: 

Freezer options include: 

full page printing 

fore- and background colour changes 

reverse printing 

jumps to monitor or reset 

Training mode: 

kills sprite collision detection. 

14 Days money 
back guarantee 

if you are 1 2 Months repla- 

dissatisfied. cement guarantee. 


NEW FINAL 
CARTRIDGE 
INCLUDING 
FREEZER 


H P 

COMPUTERS 


U.K. ORDERS Available by the wellknown 
Commodore Dealers or directly from 

H & P Computers 
9 Hornbeamwalk 

Witham Essex CM8 2 SZ England d. 
Telephone: 0376 - 51 14 71. 


copyright and registered trademark H&P computers 

Wolphaertsbocht 236 3083 MV Rotterdam Netherlands. Tel.: 01031 - 10231982 Telex 26401 a intx nl 


* works with Cl 28 in the 64 mode. 


































Stuart Cooke risks life| 

and limb reviewing | 

Mastertronic’s Ski 
Writer. 


Mastertronic is extremely well 
known for production of cut 
price software. Not a week 
goes by without a large number 
of Mastertronic's releases 
being quite high in the 
software charts. Well, 
Mastertronic is about to do it 
again with a range of cut price 
application software. 

The first venture into this 
market is the launch of Ski 
Writer. This is a wordprocessor 
that has been available in the 
good old US of A for quite a 
while and has received a large 
amount of good publicity 
becaue of its ease of use. The 
price for this package over here 
is a meagre £14.99. 

So what does Ski Writer 
offer? Well it's a full imple¬ 
mentation of a wordprocessor 
with enough features to suit 
most people. There are 
however a few items missing 
that would have made this 
package superb, but more of 
this later. 

Documentation 

The manual for this package 
could almost be described as 
non-existent. It consists of 
three pages of very small 
printed instructions, the aim of 
which is simply to tell you how 
to load the package and what 
keys do what. 

Mastertronic says the 
reason for the lack of 
documentation is that the 
package is so easy to use that a 
manual is not necessary. After 
using the package for some 
while Mm afraid that I must 
agree with them. 

In Use 

Upon loading the program you 
are presented with the 
programs main menu. From 
here you can select Edit, this 
allows you to enter and alter 
text. Preview allows you to see 
how your text is going to look 
on printed paper before you 
attempt to print. Print will allow 



MASTERTRONIC 


THE 


PISTE? 


you to check dot lines — more 
about that later — change the 
printer type, change paper 
type and print your document. 
File gives you all of the file 
manipulation commands such 
as LOAD, SAVE and MERGE 
together with a few disk 
commands such as FORMAT. 
Facilities to use disk or tape for 
your documents is included. 

One of the main reasons for 
the ease of use of this program 
is the very comprehensive help 
function. Whenever you are in 
text mode help can be 
obtained on all of thefollowing 
subjects: 

New Users 

Typing/editing 

Formatting 

Previewing 

Printing 

Cassette filing 

Disk filing 

All subjects are covered in 
quite close detail so if you have 
any confusion about a subject 
then one of the help files 
should make things clear. 

Dot lines 

Dot lines allows you to alter the 
layout of your finished 
document. A dot line is 
entered by placing a dot V 
followed by a one letter 
commmand and a number. 
Obviously it is very difficult to 
remember single letter 
commands so if you select the 
Edit menu followed by the 
format menu all of the available 
commands will be displayed 
and you can select the one that 
you require using the cursor 
keys. One important thing 
worth noting is that all the 
available functions are listed at 
the bottom of the screen. For 


example, when editing text the 
bottom of the screen reads: 

FI HELP, F3 Edit Menu, STOP 
Main Menu. 

Selecting one of these will 
move you on to another sub 
menu. For example pressing F3 
will display the following: 

Find, Replace, Format, Mark 
Copy and Cut. 

As you can see everything is 
always easy to find and you 
don't have to remember a lot of 
functions. Anyway, back to the 
dot commands. 

The dot commands 
available allow you to set up 
the following: 

The line spacing 
Left and right margins 
Top and bottom margins 
Start page number and page 
numbering at the top of a page 
Insert comments into your text 
Justify the text 

As you can see there are quite a 
number of formatting options 
open to you. There are 
however a few more com¬ 
mands. These are obtained by 
holding down combinations of 
keys and you can't get them 
from any menu. This means 
that the ones you do not use 
often are likely to be forgotten. 
Don't despair however as they 
are all documented in the help 
section. Some of the other 
commands available include 
underline and deletefunctions. 
Delete takes some time to get 
used to as it differs from the 
usual delete on the C64. The 
DEL key instead of deleting to 
the left of the cursor deletes 
the character under the cursor 
and moves the one to the right 
to that position. If you want to 
delete in the normal way, as 
you would when typing a line 
in Basic, you have to use the left 


arrow key. This leads to total 
confusion and you usually end 
up deleting the wrong piece of 
text. Why couldn't delete have 
been kept as it normally is? 

Omissions 

If you intend to use a 
Wordprocessor for serious 
work then there are a couple of 
serious omissions, one of these 
is a word count and another is 
the provision of headers and 
footers. If you are given the 
task of writing a certain 
number of words,as you would 
when writing a magazine 
article then you need a word 
count. If one isn't present then 
you have to resort to counting 
them by hand, not a fun job. 
Headers and footers are 
necessary on many documents 
for example you may need to 
put your name, the name of the 
document and the page 
number on top of each page on 
a college report, with Ski Writer 
this cannot be done. 

Verdict 

Despite a small number of flaws 
you can't really knock Ski 
Writer at a price of £14.99 it is an 
excellent buy. Not only is it 
adequate for most tasks it is also 
very easy to use, this is very 
important. 

If you are looking for your 
first word processor or one that 
is easy to use you won't go 
wrong with Ski Writer. 

Touchline 

Ski Writer 

Mastertronic 

£14.99 




































GAME 


0. What is Game Killer? 

A. A revolutionary powerful cartridge that now lets you play all those 
impossible games without being killed! 

Walk fearlessly through gunfire, disaster and danger without a scratch. 

O. Sounds difficult. 

A. It's simple. Just plug it in the back of your computer and press a button. 

Q. You mean I can play my games all the way to the end. 

I don't believe it! 

A. Yes - incredible but true! It works on all those thousands of games with 
sprite collision. ^ 

Q. Sounds like science fiction! I suppose it's available , 

A. It's here now! 

Q. I'll believe it when I see it! 

A• Exactly, so why do n / f you go to your local 
computer shop. 

The Robtek Gamekiller is available from all good 
computer dealers. 

Enquiries to Robtek (formerly known as Robcom) Ltd., 

36 Market Place, Falloden Way, London NW1 1 6JP 
Telephone: 01-209 0118. 

Patent and copyright applied for 
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Mercenary 

Novagen C64 £9.95 cass, £12.95 disk 
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YOUR SPACECRAFT HAS BEEN 
forced to crash land on the 
planet Targ. Unfortunately you 
soon find out that the inhabi¬ 
tants of the planet, the Palyars 
and the Mechanoids, are at war 
with each other. You are on 
your own, apart from your 
trusty computer, whatever you 
do from now on is your choice, 
though if you are lucky your 
computer may advise you. 

The main aim of the game is 
to get yourself enough money 
and experience to get another 
spaceship and off the planet. 
Mind you if you were feeling 
up to it you could help one of 
the waring factions out and 
earn some money as a 
mercenary. In fact when you 
start you are given the option 
of spending some of the money 
that you have in your posses¬ 
sion on a craft that belongs to a 
player, they even offer you the 


opportunity of some work. Of 
course it is up to you if you buy 
the craft or not but it is a very 
long walk around the planet if 
you don’t. 

Most of the action in this 
strange combination of 
adventure program and flight 
simulator, takes place over a 
very large 3D landscape. 
Buildings, bridges and other 
craft are all extremely well 
defined using vector graphics, 
as used on the arcade battle 
zone game. 

If you accept the Palyar’s 
offer of employment as a 
mercenary, you must find 
your way to their briefing 
room, you are given the 
location so you should not 
have too many problems 
getting there. Did I say no 
problem? It took me quite a 
few hours and many games to 
find the lift that would take me 


Time Tunnel 

US Cold £9.95 Joystick required 



down into the Palyars complex. 

The flight simulation 
element of the game comes 
into play once you are in the 
ship. The flight simulation is 
not exactly difficult, you only 
have a speed indicator, 
altimeter and compass, but it is 
great fun especially if you fly 
close to the ground as you can 
see the 3D buildings getting 
larger as they come towards 
you. 

Not all of the action for this 
game takes place on the 
surface of the planet. Some¬ 
where in thecity isa liftthat will 
take you down into an under¬ 
ground complex. This section 
of the game offers nothing 
really thrilling. In fact it is really 
just an extension of the old 3D 
maze type games. Even so, 
careful exploration of this 
extension to the city is vital as 
you will find many useful items 
scattered around in the many 
underground rooms, including 
some cross hairs that can be 
added to your craft to help you 
shoot down enemy craft. 

Not only will you come 
across objects that will help you 
but you’ll also find a great 
number of puzzles. Locked 
doors stop you from getting 
around the complex too easily, 
you’ll need to find a key to get 
through these. To make 
matters even worse there are 
rooms which will move you 
great distances around the 
complex, this really helps in 
getting you lost. 

As previously mentioned 


THE GNOME KING IS LOOK- prove yourself worthy, you 
ing for a successor. In order to must travel through seven time 


zones, finding a page of manu¬ 
script in each. If you can 
decipher the final message you 
will be able to set free many 
gnome spirits and be elected 
king. 

Starting off in the gnome 
mansion, you soon discover 
how to select a time zone and 
operate the time machine that 
will transport you to the year of 
your choice. Amongst your 
options are the stone age, 
ancient Green, the California 
gold rush and an intergalactic 
spaceship. 

You can only hold one 
object at a time but can access a 
storeroom which will hold up 
to four items. Pressing the fire 
button performs various 


you are the one that controls 
the action. If you want to go 
around shooting things up 
then that’s up to you. However, 
don’t be surprised if you find 
yourself been blown out of the 
air by enemy gun ships. 

Mercenary is certainly a 
strange game to play as there 
are no set rules. Some people 
may like this but if you are just 
after a good shoot ’em up then 
you probably won’t. It is 
possible to spend quite a lot of 
time feeling that you are 
getting nowhere, but explora- 
tiocn is important and it is 
worth mapping out as much of 
the city and the underground 
complex as possible, this will 
make it a lot easier to find your 
way around in a hurry, or even 
your way out of the complex 
and back to your ship. As 
mentioned, it’s very easy to get 
lost and you can spend hours 
just going backwards and for¬ 
wards in your search for the 
exit. 

Mercenary is an extremely 
time consuming game and isn’t 
one that you will load up for a 
quick five minutes. There is 
however a save game option so 
you don’t have to worry about 
getting killed. If you do get 
killed you will find yourself by a 
new ship anyway. 

If you are looking for a 
challenge and something to 
keep you occupied for a 
number of hours then take a 
look at Mercenary, it’s great 
fun. 

S.C. 


*7 


actions according to a list of 
priorities. It may operate a 
mechanism e.g. open a door, 
drop something, pick up an 
object or fire a lightning bolt. 

You can always return from 
a time zone to the mansion but 
sometimes time holes appear 
that transport you to another 
year. This will generally be 
useful, though, and you will 
probably be able to find some¬ 
thing in the new zone to help 
you in the old one. 

Time Tunnel is an enjoyable 
arcade adventure. The graphics 
are pleasant and there are 
some jolly tunes and enough 
puzzles to keep you quiet for a 
reasonable length of time. 

G.R.H. 
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Captain Kidd 

Bug-Byte £2.95 
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THIS IS A VERY SIMPLE AND game which bears a vague 
quite addictive little arcade resemblance to Pac-man. 

Ace 

Cascade £10.95 Plus/4 


fdj qql 
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THE PLUS/4 SUFFERS FROM A 
severe lack of commercial soft- 


ACE finds you in control of 


The Great Gonzo in Wordrider 

US Cold — Kids!- £14.95 disk only 



You control a little charac¬ 
ter called Captain Kidd (in 
reality he's just a head who 
rushes around the board, I 
don't know what happened to 
his body!) This poor little dis¬ 
membered cranium dashes 
around defusing bombs to stop 
himself getting blown to 
kingdom come. 

There are of course adver¬ 
saries to avoid and in this 
particular game they take the 
form of boots which are ready 
and willing to stomp on you at 
any given moment. At first 
they're not too difficult to 
avoid but as you reach the 
higher levels they multiply 
drastically as do the bombs. 
There are also numerous 


8 * 8 


squares on the board which are 
marked with a skull and 
crossbones and if you touch 
these then you dissolve instant¬ 
aneously. 

All the screens are identical 
except that you get a different 
background colour each time 
and of course more skulls and 
more boots. There are also lots 
of little marker flags which can 
gain you extra points. 

It's a very simple and a very 
old idea. You've probably got a 
lot of games like it at home. 
Having said that, I don't think 
you'll be wasting your money 
and you get a nice little 
rendering of The Entertainer ip 
the background. r - 

M.C. 


.JjB 


an Allied jet, your mission is to 
stop the advance of enemy 
units. 

Ground forces consist of 
missile batteries and heli¬ 
copters. These are graphically 
very good, all objects getting 
larger as you fly past them and 
the helicopters complete with 
moving rotors. 

In the air you will have to 
avoid the numerous enemy 
planes that always seem to 
come at you from behind, 
thank goodness you've got a 
rear view camera. Once you've 
destroyed all of these then it's 
on to the ships. Your aim, sink 
the retreating force. 

Obviously all this flying 
around and being shot at is 


going to leave your plane in 
need of repairs. No problem 
here, simply call up the map, 
find your nearest base, and 
land on the runway. If you're 
really lucky then you'll find a 
refuelling plane in your area, 
catch this up and you can even 
refuel in flight. 

As previously mentioned 
this game has some very real¬ 
istic graphics. If you are daft 
enough to fly low you will see 
the hills and even the trees as 
they whizz beneath your plane. 

ACE is a gamethat no Plus/4 
owner should be without, it 
will keep you occupied for 
hours. 

S.C. 


THE FAMOUS MUPPET CHAR- 
acter, The Great Gonzo, is on a 


mission to save his friend 
Camilla the chicken from being 


the main ingredient in the 
Swedish chef's coq au vin. It's 
probably an idea to include a 
warning with this adventure: 
it's a chock-a-block with the 
most appalling puns in true 
Muppet style. 

It's a joystick operated text 
adventure in which Gonzo is 
given a series of options in 
choosing a vehicle for the 
particular terrain in which he 
finds himself. You can have a 
rolling horn blower, a diving 
light maker or even a walking 
bumper. There are several 
options and you must make 
sure you pick the correct one 
for your present location. 

The locations have chicken 
flavoured names, for instance. 


the Egglantic Ocean, New York 
City and the Egg-yptian Desert. 

You need to amass a mini¬ 
mum of 75 points to reach the 
castle where Camilla is being 
held captive. You score points 
for successfully negotiating 
hazards and also for con¬ 
quering the foes you meet on 
the way, like sharks, eagles and 
even wild goats. 

Some of the screens involve 
dodging flying birds and 
bouncing eggs while others are 
maze type settings. 

It's very entertaining and the 
instruction booklet also 
contains a Muppet story. 
Eggsactly what the doctor 
ordered! 


M.C. 
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Desert Fox 

US Gold £9.95 






EVERY SO OFTEN-A GAME 
appears thta first impressions 
would leave you to think that it 
was a load of rubbish, the only 
tEiing is that a few Eiours later 
you find yourself still playing it 
and going back to play it time 
and time again. Desert Fox 
from US Gold is one of those 
games. 

Desert Fox is a combination 
of both arcade and strategy 
games. You play the part of the 
Allied forces and must save all 
your depots before they are 
take over by Rommel’s army. 
Lose one depot and the game is 
over. 

Upon loading you are 
presented with a map of the 
area in question,depending on 
the level of play a varying num¬ 
ber of flags are present, these 
represent the bases that you 
must rescue from the clutches 
of the evil Rommel. A number 

Comic Bakery 

Imagine £.95 Joystick required 


of icons - small pictures 
- represent the options that are 
available to you.. 

Selecting the Zoom icon 
allows you to find out infor¬ 
mation on a selected base. The 
information given is; the 
number of enemy tanks 
present, the number of your 
tanks present, how much fuel 
and supplies are there and, 
perhaps the most important, 
the number of hours before 
the depot is over run. The 
number of hours of freedom 
remaining for the selected site 
is also shown on an indicator at 
the bottom of the screen, this 
gives you an indication of just 
how long you have got to get 
there and rescue your troops. 

The Radio icon turns on 
your tank’s radio. This can be 
directed where you want, 
pressing the fire button gives 
you a surprisingly easy to 


ia ** 



understand radio message 
about what lies in this direc¬ 
tion. 

The move icon will move 
your tank, known as Lone Wolf, 
in the direction that the radio 
beacon is facing. Careful use of 
this icon together with the 
radio icon will allow you to 
travel around the map avoiding 
the enemy as much as possible. 

If you are unlucky enough 
to fall for one of the enemy’s 
little traps then you will enter 
the arcade sequence of the 
game. In all of the sequences 
the graphics and sound can 
only be described as adequate 
but are fairly realistic and 
surprisingly quick. 

If you meet up with a 
convoy you have to protect it 
from enemy planes that are 
trying to blow it up. Your job, 
shoot down the planes, avoid 
the allied ones or you will lose 
points. The cross hairs for your 
two sights automatically move 
to the position of any planes, 
simply move the joystick left or 
right to fire the gun. 

Tiger finds you under attack 
from enemy tanks, you can 
spot them on your radar and 
hear their missiles screaming 
towards you. With careful aim 
you can shoot the enemy 
shells, if you shoot the tank 
then their shells disappear as 
well. Your missiles can be 
guided so even if the tank is 
moving you stand a good 
chance of blowing him to 
pieces, not before he has had a 
good go at you, though. Each 
hit by the enemy will cause 




some damage to your tank, this 
can be repaired at one of the 
depots. 

In minefield you suddenly 
find your tank completely 
surrounded by mines. Your aim 
is to get out of there alive. You 
can shoot mines that are in 
front of you so this helps to 
clear a path. If you do hit a mine 
then of course you are 
damaged and you also get 
stuck in the sand wasting 
valuable time. 

Ambush is reminiscent of 
the section in the Star Wars 
arcade game, the bit where you 
are flying down canyon being 
shot at from the sides. Here 
your tank is going through a 
canyon, the enemy has gun 
emplacement on both cliff 
faces. You must destroy them 
before they pass your tank, if 
you don’t then you will suffer 
damage. 

In Stuka Lone Wolf is being 
attacked by enemy fighters. 
This section of the game is very 
similar to the Tiger tank 
section, shoot the enemy with 
your guided missiles before 
they hit you. 

Desert Fox offers enough 
variation throughout its play to 
keep you interested for a long 
time. The different levels offer 
such a varying degree of 
competition that you start to 
take the attitude that as soon as 
one level is finished you must 
have a crack at the next one. If 
you’re after a good shoot them 
up then have a go at Desert Fox. 

S.C. 




BASED ON THE ARCADE Bakery sees you playing the 
game from Konami, Comic part of a baker trying to bake 


and deliver as many loaves as 
possible between the hours of 
nine a.m. and five p.m. As the 
factory is automated, it ought 
to be easy but you are 
hampered in your work by 
some pesky raccoons. 

There are three switches on 
your conveyor belt which the 
raccoons delight in turning off. 
Fortunately, you have a stun 
gun with which you can put 
them to sleep for a few seconds 
and kick them out of the way. If 
you touch them when they are 
not stunned, you lose one of 
your three lives. Another 
raccoon runs above the 
conveyor belt, stealing loaves. 
Fie can be stunned by leaping 
up and firing. 


A radar at the top of the 
screen keeps you informed of 
what’s going on. You must also 
keep your eye on the number 
of shots you have left although 
you do regain them in time. 
Points are scored for stunning 
and kicking raccoons and 
switching the machines back 
on. At the end of the day, you 
get a bonus for each loaf baked 
and progress to the next level 
although there is no increase in 
difficulty. 

The graphics are bright and 
colourful and the music and 
sound effects are excellent but 
the game is far too easy to play 
and lacks any lasting appeal. 

G.R.H. 
















Zoids 

Martech £7.95 


THE PLANET ZOIDSTAR LIES 
millions of light years from 
earth. Here the Zoidarians 
manufactured their war 
machines the Zoids, and the 
story goes on. 

Now there are two types of 
Zoids, red ones and blue ones. 
You play the part of Earthman, 
a man from no guesses where, 
who is going to merge minds 
with the blue zoids ultimate 
weapon, Zoidzilla, and take on 
the evil red zoids from within 
their own complex. 

However, as you descend 
into the heart of their city your 
craft is blown up and you see 
Zoidzilla disperse across the 
landscape. 

Red Patrols find these 
pieces of Zoidzilla and carry 
them off to eight of their city 
domes. Your task now is to find 
the eight pieces and then 
destroy the red army. 


Of course, as with all good 
stories, you manage to escape 
from your ships destruction 
with a very useful piece of 
equipment. Tank Zoid (what 
really exciting names!), you 
merge minds with it and you 
become as one. 

All of the action in Zoids 
takes place within the area 
surrounding the Red Zoids' 
cities. Your position within this 
city is depicted upon a small 
map of the area around your 
tank, in the middle of your 
screen. You don't see anything 
as it really is as you are seeing 
everything through the eyes of 
Tank Zoid. If you ask me this isa 
very good excuse for making 
what could have been very 
interesting graphics appear on 
the screen as simple blocks of 
colour. Yes, you guessed it, 
you're blue and the enemy's 
red. 


Around the map you will 
find a number of icons. These 
show all of the equipment 
available to you and its status. 
Above the map is your pulse, 
below is that of the zoid. 
Careful monitoring of these 
will show you what state both 
are in. 

Next you have the Mode or 
Weapon icons. The Railgun 
propels electromagnetic pulses 
at your enemy. You can fire 
normal missiles and attempt to 
jam the enemy's signals. 

Lastly you have information 
about your zoid, damage 
reports and that sort of thing. 

Moving your pointer over 
the map allows you to specify a 
direction in which you want 
your Tank Zoid to move. It will 
continue moving in the speci¬ 
fied direction until it can go no 
further. This allows you to 
watch the map for lurking Red 
Zoids as they are bound to take 
a few pot shots at you as you 
drive past. 

Combat in Zoids is a little 
strange and not that exciting. If 
you are using the railgun you 
are presented with a diamond 
shaped sight, you have to 
centre the enemy, represented 
by another diamond, in your 
sights and fire. This may sound 
graphically boring butto be fair 
it isn't. Martech has done a 
good job of making all the 
graphics look pretty even if 
they are a little basic. 

Firing missiles is a lot more 
complicated. You are 
presented with two map grids. 


One showing your enemy from 
above the other from the side. 
You have to select how much 
fuel to put in your missile, fire it 
and then guide it to your 
target. You control the missile 
on one map at a time, press the 
button to move between the 
maps. Action here is a little fast 
and I found it took quite a 
while before I was used 
enough to the controls to hit 
anything. Again nothing 
stunning but good enough. 

An exciting musical piece 
by Rob Hubbard helps to set 
the scene for the game. 
Though I getthefeelingthathe 
sets it too well and the game 
doesn't quite live up to it. To be 
fair though, even though Zoids 
is probably not the most 
visually stunning game around, 
there is a lot to it and it will 
probably take a long time to 
master. 

The action is fast and 
furious, get three or four Red 
Zoids on your tail and the only 
option open to you is to run. Of- 
course you don't have to but I 
bet you'll end up starting the 
game from the beginning 
again. 

Zoids is very different to any 
other game and must be played 
for quite a while before you get 
the hang of it and really start to 
enjoy it. If you can't be 
bothered to spend a long time 
on a game then Zoids probably 
isn't for you. If, on the other 
hand, you enjoy a challenge 
then the Red Zoids are waiting. 

S.C. 


Ark Pandora 

Alligata £9.95 


6s 


ARCADE ADVENTURES ARE A 
type of game that are 


becoming extremely common 
at the moment. 


As with any normal 
adventure the game must have 
an aim. In Ark Pandora you 
must retrieve the sacred scroll 
which is hidden on the island. 
While travelling in your search 
for this mysterious scroll you 
will meet both friends and 
enemies. Friends can be 
persuaded to help you in your 
task while the enemy will do 
his best to kill you off. 

Nothing unusual here I 
,here you say, well no there isn't. 
The main difference between 
this and many other arcade 
adventures is its presentation. 
Firstly all of the graphics are 
extremely colourful and very 
well animated, the running and 
jumping action of characters 


being one example. Secondly, 
most of the action is icon 
controlled. Pointing to the 
icons allows you to use objects, 
pick them up and put them 
down, select which way you 
wish to go once you reach the 
edge of the screen and that sort 
of thing. 

When you get fed up with 
the game, which will take a 
long time as some of the 
puzzles are extremely 
complex, you don't have to put 
this game in the box with all 
your other 'dead' programs. 
Simply break out the screen 
designer that comes with the 
packages and create your own 
new screens. 

S.C 
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FA Cup Football 


Virgin Games £7.95 
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IT'S QUITE SURPRISING THAT 
nobody's ever done an official 
FA Cup program, however 
Virgin has now rectified that 
situation with this new text 
only game. 

As a football manager, you 
are in charge of 10 teams (it's 
hard work these days in the 
soccer business). The aim of the 
game is, of course, to get one of 
your teams to the final at 
Wembley and then thrash the 
opposition. 

One of the game's strongest 
points, in my opinion, is that it 
can be played by up to eight 
people at once. I've never had 
a game against the computer 
alone but I think that would 
become a little tedious. When 
there are several people 
competing it's pretty exciting 
and you can become very 


Elektraglide 

English Software C64/128£8.95 


involved in your teams' 
performance. 

You start by choosing your 
10 sides from a choice of 124 
possible teams. Any ones left 
over are managed by the 
computer. It's quite a good 
idea to pick a few non-league 
teams since they can surprise 
you with occasional flashes of 
brilliance although I've never 
succeeded in taking one past 
the fourth round. The league 
clubs have all been given a real 
home and away rating based on 
their performance in the FA 
Cup over the last few years and 
also on their current league 
form. From the little I know 
about soccer it seems to be 
fairly accurate, although there 
is always room for surprises. 
Non-league clubs have a rating 
based on FA Cup history and 



THIS GAME BENDS OVER 
backwards to pretend that it is 


not a racing game like Pitstop 
or Pole Position. 


recent results and attendances. 

Once you've chosen your 
sides then you watch the draw. 
Two little tokens roll on to the 
top of the screen and the 
names of the sides drawn 
against each other appear at 
the bottom and scroll upwards. 
In case you haven't kept a 
record of your teams, don't 
worry because each manager's 
initials appear next to the 
names of his sides. 

Once you've found out 
who you're playing, a screen 
appears on which you must 
indicate your team's tactics. 
These can be defensive, 
balanced or attacking. You 
are given this option for all 
your teams and in the first two 
rounds, where only non¬ 
league and third and fourth 
division clubs play, this is the 
only opportunity you have to 
guide your teams' progress in a 
particular match. Later when 
the big boys join in, you are 
given more opportunities to 
decide tactics, and these 
increase as you get nearer the 
final. Eventually you reach the 
stage where you can advise 
your team four times during a 
match and you are even given 
the option of bringing on the 
sub. 

There are also news flashes 
about various events which can 
affect your teams' morale. Your 
star player is having dodgy 
dealings with a ticket tout. Your 
goalie went out on the razz the 
night before the match and has 


The game has you behind 
the wheel of a speedy racer 
which you must steer around 
the winding roads of Britain, 
America or Australia avoiding 
obstacles which appear in your 
path. Intelligent spheres, 
boxes, oil patches and electro¬ 
static columns dropped from 
overhead rockets. No 
problems about burning the 
rubber off your wheels or 
running out of road. Any over¬ 
steering is penalised by a drop 
in speed and your race is to get 
from A to B before your time 
runs out. 

Every time an obstruction is 
hit the car thumps to a standstill 
causing precious seconds to 
tick by. If the course is com- 


a dreadful hangover. However, 
good things happen too - I was 
several times voted manager of 
the month! Although, once 
you've played the game a few 
times, you'll probably find that 
you've read all the news 
flashed and you'll begin to give 
them a miss. 

There is a state of play 
screen which shows how all the 
teams are doing in their current 
matches. Ninety minutes is 
clocked up in an equivalent 
number of seconds and you 
can speed this up if you like. It's 
amazing how many goals seem 
to be scored in the final minute 
of the game. I was leading 
Chelsea to a cup final win 
against Manchester United and 
was two nil up. In the final 
minute my worthy opponents 
managed to score a staggering 
three goals! This circumstance 
detracts a little from the 
authenticity but certainly adds 
to the excitement. You can 
never be sure of a win until the 
final whistle blows. 

When you reach the final 
you are forced to make quite a 
few skillful decisions. Whether 
to agree to transfers for your 
best players, how to prepare 
them for the match etc. These 
all affect the team's perfor¬ 
mance so choose your answers 
carefully. 

One last point - you don't 
need to be an avid football fan 
to enjoy this game. I'm not. Get 
a few friends together and go 
out and buy it. 

M.C. 



pleted within the allotted time, 
any time remaining isadded on 
to the next, more difficult run. 

Although the cassette insert 
goes to great lengths to 
disassociate itself from similar 
3D simulations, a short period 
of deep thought will convince 
you otherwise. Imagine the 
obstacles are cars, they appear 
at random looming up from the 
horizon. Might just as well be a 
sphere or a box. Sorry about 
the dogmatic approach butthis 
is not really different to 
anything already on the 
market. It is fast, and franticfun 
and recommended for those 
who are tired of staring up hi¬ 
res exhaust pipes. 

E.D. 
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GIVES YOU DATABASES, BULLETIN 
BOARDS, ELECTRONIC MAIL 
PRESTEL — ALL ON YOUR 
COMMODORE 64 OR 128 






£98 fS 


PROHIBITEI B^from direct or 
indirect connection to public 
telecommunication systems. Action 
may be ytken against amyone so 
connecting this apparatus. 


. At last! The perfect modem for your 

Commodore* 64 or 128, giving you 
access to Prestel *, Micronet *, viewdata 
a and a host of other services — plus 

user-user communications 
It couldn't be simpler. The 64 
Multimodem has autodial and 
* “ autoanswer, with all comms 

software on-board in ROM. 64 Multimodem fits 
your Commodore's cartridge port, and has just 
one external connection — the telephone 
lead. 

The 64 Multimodem is menu driven and 
multispeed, with CCITT V21/23 and Bell 
103 standards, handling baud rates of 
300/300, 1200/75 and 75/1200. 

Functions include save and 
print frame and automailbox 
with edit and save. 

Buy your 64 Multimodem now and 
we’ll give you free introductory 
subscriptions to Micronet and 
Microlink *: an unbeatable package 
at an unbeatable price — it’s pure 
genius! 
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COMMODORE 64 


O-EEVEL REVISION 


>ngman software 


As exam time draws near, 


Margaret Webb takes you 


through the latest in revision 


software. 


SOON ‘O' LEVEL AND CSE EXAM TIME 
will be with us again. Mock exams will 
have been taken and any areas needing 
extra work highlighted. Therefore it 
seems a good time to look at some of the 
software available and to discuss their 
various attributes. Several of the leading 
publishing/software houses have 
produced revision packs which are all 
very individual so I shall deal with each 
firm in turn by looking at what they Are 
offering and how it is presented. 

Commodore Software 

Commodore has a range of revision 
software which includes: English 
language (the only one I've seen); Geo¬ 
graphy - dealing with relief, climate, 
farming, industry etc; ‘O' level French - 
general practice of tenses, verbs, 
pronouns etc; Computer Studies - logic, 
operational procedures, programming, 
data storage; Physics; Chemistry - basic 
techniques, reactions, periodic tables; 
Biology; Maths. 

The maths package consists of two 
separate units. Maths 1 covers arithmetic, 
algebra, geometry, trigonometry, and 
problems. Maths 2 covers arithmetic, 
equations, progressions, functions, 
calculus and trigonometry. In both 
programs three types of question are 
used. These are true or false questions, 
multiple choice, in which there are up to 
four choices and a series of questions in 
which the answer must be typed in. A 
booklet accompanying the programs 
doubles as running instructions and 
revision notes. 

All these retail at £9.99. 

Penguin Study Software 

Penguin has a long association with 
English literature study guides and these 
programs are a natural progression. They 
are purely revision aids and should be 
used in conjunction with the students 
own notes and a copy of the play being 
revised. The program takes the form of a 
database with excellent cross reference 
capabilities. If an essay is required on a 
given subject or image the program will 
search out all the references on that sub¬ 
ject and list them, thus saving the user 
countless hours thumbing through the 
text. Titles in the range include Romeo 
and Juliet, The Merchant of Venice, 
Twelfth Night, Julius Caesar and Henry IV. 


Longman’s Exam Revision 
Software 

Longmans is another publisher which has 
used its expertise in writing textbooks to 
good effect in the field of computer soft¬ 
ware. Each package contains a cassette 
and a 12 page booklet and revision 
planner. 

Titles available are: French - a 2000 
word vocabulary list, revision on regular 
and irregular verbs, comprehension 
practice and a section all about France, its 
regions and specialities; Biology - class¬ 
ification of animal and plant kingdoms, 
genetics and inheritance, food composi¬ 
tion and a test of terms referring to the 
body; Computer Studies - how logic 
circuits work, file handling and useful 


Basic routines, Visicode low level 
languages; Mathematics - transforma¬ 
tions, statistics, probability and odds, 
trigonometry; Physics - key formulae, 
light, machines and pulleys, circuits and 
Ohm's Law; Chemistry - the elements, 
molecular weight, preparation in the lab. 
Reactivity. All these packages cost £7.95. 

Collins Gem Revision Software 

These are packages costing £8.95 each 
which extend the Gem Basic Facts books 
with the addition of a cassette. Each 
cassette contains four different programs. 
The first is a random tester which helps 
determine any problem areas. The next 
two sections deal with helping the student 
to learn through a diagram with ordinary 
questions or multiple choice. The final 
section tests the student by means of a 
game against the computer. Four titles are 
available - Biology, Chemistry, Physics 
and Computer Studies. 

Pan Course Tutors 

At first glance the asking price of £14.95 a 
package seems a lot but on closer examin¬ 
ation they represent a bargain not to be 
missed. They are the product of an amal¬ 
gamation between book publishers, 
Heinemann and Pan, and software house 
Hill MacGibbon. A meaty combination 
especially when you add Collinsoft. 

Each package consists of two cassettes, 
a student guide and a copy of the approp¬ 
riate Pan Study Aid. These books have 
been around for many years and cover all 
essential parts of the syllabus. They 
explain how to tackle exam questions by 
giving examples and indicating which 
areas carry more marks. The books are 
very detailed and are labelled ‘The 
complete guide to exam success'. 

As if to contradict this the cassettes in 
this package are used in conjunction with 
the book. Cassette 1 has a series of 
diagnostic tests. From these you can assess 
your performance in one of three ways: A 
full analysis of your answers; a time 
analysis; a written report showing any 
weak areas and suggestions for further 
work. 

Side two of tape one and both sides of 
tape two are detailed teaching programs 
designed to help the student as much as 
possible. Subjects covered are French, 
Maths, Physics, Chemistry and Biology. 

By the time this article reaches you the 
long running teacher's pay dispute will 
hopefully be resolved. Should it not be so 
then the revision packages will hold even 
more importance. If it is sorted out, they 
are still a valuable resource and may make 
the difference between a pass or a Grade 
1 . 
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" £87s inc Vat 


Yes Its true !!! 

For a limited period we are giving away a £5.00 
Travel Chek for spending money on your next 
holiday with EVERY £50 SPENT. 

Thats not all folks !!! 

your vouchers could also win you a FREE stay 
HOLIDAY for two or four people in our lucky 
numbers draw. 

ONE ENTRY FOR EVERY £5 VOUCHER 


r SOFTWARE ■ 


Superscript 64 - Disk. 49.00 

Superscript 128 - Disk . 74.00 

Superscript + Superbase 64 - Disk. 99.00 

Superbase 64 - Disk . 59.00 

Superbase 128 - Disk . 79.00 

Superbase + Superscript 128 - Disk. 139.00 


dls kettes 

*<45.00 
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Computer Centres 

48 Junction Road, Archway, London N19 5RD 
01-263-9493/5 

238 Muswell Hill Broadway, London N10 3SH 
.01-883-3705- 


Verbatim which are the best disks: 

SS DD 40T Diskettes. 17.95 

DS DD 40T Diskette . 24.75 

SS DD 80T. 24.75 

DS DD 80T Diskettes . 32.75 

PAPER 

11 X 9.5 (2000 sheets). 12.65 

112/3x9 1/4. 11.95 


LABELS 

3.5 x 1 7/16 (1000) . 
3.5 x 1 7/16. 


. .4.50 
.16.00 



* CONDITIONS OF REDEMPTION OF TRAVELLERS CHEKS PRINTED ON EACH VOUCHER ( 

" “INSTANT CREDIT” “INSTANT CREDIT” 

Terms 

All products are guaranteed for one year unless otherwise stated. Payment may be made by Access, Barclaycard, Bankers draft, Building Society cheque, 
cash or postal order. Sorry, cheques need five days for clearance. We reserve the right to change prices without prior notice. All prices are inclusive of VAT. 

Please check before ordering for carriage charges. 






























































Save your fingers a lot of 


work with our new software 


IT’S THREE O'CLOCK IN THE MORNING. 
You sit at the computer keyboard having 
just finished a marathon typing session 
entering one of the superb programs 
from Your Commodore. Your fingers 
reach for the keyboard and press the 
letters R, U and N/. You sit back 
expectantly and.. .nothing happens. 

Well, I'm sure that we have all had 
problem before now. When it does 
happen it's a matter of spending hours 
searching through the program for any 
typing mistakes. No matter how long you 
look or how many people help you, you 
can usually guarantee that at least one 
little bug slips through unnoticed. 

Here, at Your Commodore, we pride 
ourselves on the quality of listing that we 
print. Unfortunately, this usually means 
that they are also very long, thus taking 
longer to type in and leaving more room 
for errors. All of the listings in Your 
Commodore are taken straight from a 
printout of working programs, it is 
therefore very unusual for errors to 
appear in the magazine. 

Because of the length of our programs 
we do get a large number of requests from 
readers who would like us to put specific 


programs on tape or disk for them. 
Obviously this is very time consuming and 
means that we can't spend as much time 
working on the magazine as we would 
like. 

We are therefore proud to announce 
the start of the 'Your Commodore Soft¬ 
ware Service'. Most of the programs from 
each issue of the magazine will now be 
available on a single cassette for a price of 
just £4.00. We will not be making disks 
available since they would have to be a lot 
more expensive and more difficult to 
post. This shouldn't cause you any 


problems though as none of the programs 
will be protected and it will be a simple 
matter to save the programs to disk 
yourselves. 

All programs on the cassette will be 
saved using a tape turbo routine. 
However, we cannot guarantee that all 
programs will work correctly with this 
turbo routine present. We therefore 
recommend that before you use any of 
the programs you make a copy of the 
programs on your own cassette or disk 
and use this version of the program not 
the original. 


PLEASE COMPLETE IN BLOCK CAPITALS 

All cheques/postal orders should be made payable to: 
ARGUS SPECIALIST PUBLICATIONS LTD 


ORDER FORM 


I would like to order the following cassettes: (please tick box) 


I enclose a cheque/postal order for £ 

NAME. 

ADDRESS. 


POSTCODE. 

All orders should be sent to:- 

YOUR COMMODORE SOFTWARE, READERS SERVICES, ARGUS SPECIALIST PUBLICATIONS 
WOLSEY HOUSE, WOLSEY ROAD, HEMEL HEMPSTEAD, HERTFORDSHIRE HP2 4SS. 

Please allow at least 28 days for delivery. 


MARCH ‘86 

YCMA861 

£4.00 


UTILITY SPECIAL 

YCMA862 

£4.00 


APRIL ‘86 

YCAPR86 

£4.00 


MAY ‘86 

YCMAR86 

£4.00 
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AIR • COMBAT • EMULATOR 


BY CASCADE GAMES 


£ 10.95 

INC. FREE WATCH 
AND POSTAGE 


1-3 Haywra Crescent Harrogate - 

ttsaS 

You are the last fiahter ni lot with onlv three 


SSbES3 


The AIR COMBAT EMULATOR, packed with 
exciting features, is by far the fastest, most 
realistic flight simulator available. For the 
firsttime on a home computer, fee! what it is 
really like to fly a high performance military 
jet and engage tanks, missiles, ships, 
helicopter gun-ships and two types of 
cunning intelligent enemy aircraft. 

Featuring over 300 sprite images, ACE 
has the smoothest, most detailed cockpit 
view of hills, trees and other ground objects 
ever achieved thanks to specially 
developed Dynamic Graphic Technique 
(LU^u ©) allowing sensational high speed 
solid 3D graphics. 

In combat, your head will spin as you 
struggle with the help of the advanced 
avionics which include a rear-view camera 
and radar, to stay alive long enough to do 
some damage to the enemy. 

The unique two seat flying option (pilot, 
navigator/weapons man) and Synchro 
Speech © which passes vital aircraft 
condition information to the flight crew 
without freezing the action combined with 
dynamic tactical map, take offs and 
landings, summer, winter and night-time 
flying and a remarkably realistic in-flight 
refuelling option makes ACE the ultimate 
AIR COMBAT EMULATOR. 

ACE SCENARIO 

A vast invasion fleet has landed on your 
southern shores and discharged scores of 
tanks supported by helicopter gun-ships 
and protected by mobile surface to air 
missiles. Squadrons of enemy fighters give 
the enemy forces air cover. Advancing 
ruthlessly they are conquering your 
homeland, facing no opposition. 


You are the last fighter pilot with only three 
A.C.E. Mark 2.1 multi role All Weather All 
Terrain combat aircraft. Based at 

an allied airbase, yourtask istoattack and 
destroy the numerically superior enemy 
land and air forces and drive them from 
your 'shores. The final stage of the conflict, 
having already destroyed the enemy land 
forces and shot down their air force, is to sink 
the enemy fleet as it evacuates its defeated 
army. 

ACE— EXPERIENCE IT NOW 

Every computer game fan will love ACE - 
just look at these features:- 

• 100% optimized machine code uses all 
available memory. 

• Featuring Dynamic Graphic Techniques 
(lulsA*©) 

• The smoothest, fastest and most detailed 
cockpit view of any flight simulation. 

• Views of hills, trees, tanks and other 
ground objects. Aerial combat, ground 
attack and navaL attack. 

• Synchro Speech © ie. the speech 
does not freeze the action. 

• Two seat option -fly and 
fight with the aid 
friend. 

• Sensational 3D solid 
T^ot boring wireframed) graphics. 1 
High score saving system. 

• QWif ® operation (All Weather All Terrain)! 

• Note due to memory limitations ACE on 
theC16and VIC20 (+8K Ram) do not have 
any ground objects. 


OMNOWM" 

£12-95 WATCH 


REE 


Order ACE today and 
receive this fantastic 

20 KEY MULTIFUNCTION 
CALCULATOR WATCH 


ABSOLUTELY FREE!!! 


!□□□□□□! 


JO J- : 


(□2?0l 


las-fil 


[nnnaoal 


£10.95 (DISK 064 £12.95 - 
016 and VIC 20 £9.95) 

Postage FREE in U.K. Add £1 for overseas orders. 

Allow 28 days for delivery. 

I enclose cheque/postal order for (£.) made payable 

to Cascade Games Ltd. 

Or through any Post Office by Transcash (Giro No. 655 6655). 

For even faster ordering when charging to Access, Barclaycard and 
Trustcard Visa use our 24 hr service (Tel. 0423 504663). 

ENTER CREDIT CARD NO. IN BOX:- 


□ 064CASSETTE □ 064 DISK □ 016 

□ O VIC 20 (wilh 8K RAM expansion) □ 0 128 

□ O PLUS/4 (SPECIAL 64K PLUS/4 VERSION) 


ACE-EXPERIENCE IT NOW! 


Please tick box 
NAME. 


Please complete and send to:- 
Cascade Games Ltd. 

1 -3 Haywra Crescent 
Harrogate HG1 5BG. England. 
Tel. (0423) 504663 
Registered No. 1755554 


VISA 



























































Allen Webb puts 3D 
graphics in focus. 


UP TO NOW, I'VE TRIED TO 
give routines which will be of 
use to the widest possible 
range of readers. I now plan to 
give a few which will be of use 
mainly to game writers. The 
idea is to try to remove the 
problem of graphics from the 
user leaving him time to 
concentrate on the logic 
behind the game. 

I've always been keen on 3D 
games so it's with this area that I 
wish to start. The use of 3D 
effects to depict movement 
down corridors or mazes is 
frequently used in arcade 
adventure type games. If 
you've seen Ariolasoft's 
Scarabaeus or Supersoft's 
Super Glooper, you'll know 
what I mean. 

The idea behind the routine 
is that you define the maze as a 
two dimensional array in RAM. 
You call the routine specifying 
the co-ordinates of your 
position and the direction 
you're looking and the routine 
shows the view through the 
maze. 

The maze is considered as 
an array of square cells. Each 
cell can have exits in any one of 
the four cardinal directions. If 
we assign a bit to each direction 
such that north uses bit zero, 
each uses bit one etc. we can 
calculate a number between 
zero and 15 which defines the 
cell. These are summarised in 
Table 1. 


Table 1 

Exits 

Cell Value 

None 

0 

N 

1 

E 

2 

N & E 

3 

S 

4 

N & S 

5 

E & S 

6 

N & E & S 

7 

W 

a 

N & W 

9 

E & W 

10 

N & E & W 

ii 

S & W 

12 

N & S & W 

13 

E & S & W 

14 

all 

15 


Figure 1 shows the maze 
used in the demonstration 
listing. The only restriction is 
that all passages are limited to 
one cell wide. 
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\TOP DRAW 








PROGRAM : 3D LOADER 


ie REHtmmmmmtmm 

m 

20 REH* 3D MACHINE CODE LOADE 

R » 

30 REHmmttmmmmm 

m 

2000 FOR L=0 TO 145:CX=0 
:F0R D=0 TO 15 :READ A 
;CX=CX+A:P0KE 3B400+LI16+D 
A:NEXT D 

2810 READ A:IF AOCX THEN PRI 
NT'ERROR IN LINE 1 ; 
2040+(Ltl0):STOP 
2020 NEXT L:END 
2040 DATA 76,199,151,76,122, 
151,76,11,155,169,0,133, 
251,169,280,133,2072 
2050 DATA 252,169,0,141,222,3 
141,223,3,173,224,3,141, 
114,155,32,1996 
2060 DATA 155,151,238,223,3, 
173,223,3,201,20,240,20,24 
165,251,105,2195 
2070 DATA 40,133,251,144,2, 
230,252,238,222,3,32,112, 
150,76,31,150,2066 


2080 DATA 96,173,216,3,133, 
167,173,217,3,133,168,172, 
215,3,240,17,2129 
2090 DATA 24,165,167,109,212, 
3,133,167.165,168,105,0, 
133,168,136,208,2063 
2100 DATA 239,24,165,167,109, 
214,3,133,167,165,168,105, 
0,133,168,96,2056 
2110 DATA 173,222,3,201,7,144, 

6.173.225.3.76.128.150.173, 
224,3,1911 

2120 DATA 141,114,155,96,162, 

3.160.14.24.32.240.255.173, 
224,3,141,1937 

2138 DATA 134,2,169,206,32, 
210,255,162,4,160,14,24,32, 
248,255,173,2072 
2140 DATA 225,3,141,134,2,169, 
67,160,158,32,38,171,96, 
162,2,160,1712 
2150 DATA 10,24,32,240,255, 
173,224,3,141,134,2,169, 
207,32,210,255,2111 
2160 DATA 169,207,32,210,255, 
162,3,160,10,24,32,240,255, 
173,225,3,2160 
2170 DATA 141,134,2,169,84, 


160,158,32,30,171,96,162,1 

160,5,24,1529 

2180 DATA 32,240,255,173,224, 
3,141,134,2,169,207,32,210 
255,169,207,2453 
2190 DATA 32,218,255,169,207, 
32,210,255,162,2,160,5,24, 
32,240,255,2250 
2200 DATA 173,225,3,141,134,2 
169,147,160,158,32,30,171, 
96,162,3,1806 

2210 DATA 160,19,24,32,240, 
255,173,224,3,141,134,2, 
169,286,32,210,2024 
2220 DATA 255,162,4,160,19,24 
32,240,255,173,225,3,141, 
134,2,169,1998 
2230 DATA 11,160,159,32,30, 

171.96.162.2.160.22.24.32, 
240,255,173,1729 

2240 DATA 224,3,141,134,2,169 

207.32.210.255.169.207.32, 
210,255,162,2412 

2250 DATA 3,160,22,76,201,150 
162,1,160,26,24,32,240,255 
173,224,1909 

2260 DATA 3,141,134,2,169,207 
32,210,255,169,287,32,210, 












































The graphics use multi¬ 
colour redefined characters. So 
that you have the maximum 
amount of RAM, a setup 
routine is used to shift the 
screen and characters to the 
area between the ROMs. The 
screen’s new position is from 
51200 to 52199. The views use 
the characters from Shifted A 


to Shifted S leaving you with a 
reasonable number for the 
creation of objects or monsters 
to put in the maze. You can 
specify the colour scheme by 
poking the following location: 
Location 994 - Wall colour 1 
Location 995 - Wall colour 2 
Location 993 - Ceiling colour 
Location 992 - Floor colour 


Location 996 - Background 
Location 997 - Border 

The floor and ceiling 
colours force the multicolour 
mode and must therefore be in 
the range eight to 15 giving 
only eight colours. 

If you wish to use sprites, 
the sprite pointers are now 
located from 52216 to 52223. 


Useable sprites are numbers 48 
to 64 and 128 to 254 and are 
located according to the 
equation: 

Start Address = 52224+(Sprite 
Number-48) *64 

The screen and character 
set limit the area available for 
sprites but there is plenty of 
room behind the kernal ROM. 


255,169,207,2402 
2270 DATA 32,210,255,162,2, 
160,26,76,252,150,173,22, 
208,9,16,141,1894 
2280 DATA 22,208,173,226,3, 
141,34,208,173,227,3,141, 
35,208,173,228,2203 
2290 DATA 3,141,33,208,173, 
229,3,141,32,208,96,174, 
222,3,189,115,1970 
2300 DATA 155,133,253,189,135 
155,133,254,160,0,24,165, 
252,105,16,133,2262 
2310 DATA 171,165,251,133,170 
177,253,56,233,128,145,251 
173,114,155,145,2720 
2320 DATA 170,200,192,34,208, 
239,96,32,14,152,165,20, 
141,216,3,165,2047 
2330 DATA 21,141,217,3,32,14, 

152.165.20.141.212.3.32.14, 
152,165,1484 

2340 DATA 20,141,230,3,32,14, 

152.165.20.141.231.3.32.14, 
152,165,1515 

2350 DATA 20,201,2,208,3,76, 
24,152,201,4,208,3,76,184, 
152,201,1715 

2360 DATA 3,208,3,76,88,153, 
201,1,208,3,76,248,153,96, 
32,253,1882 

2370 DATA 174,32,138,173,32, 

247,183,96,32,9,150,173, 
230,3,141,214,2027 
2380 DATA 3,173,231,3,141,215 
3,32,65,150,165,167,141,82 

3,165,1739 

2390 DATA 168,141,83,3,160,0, 

177,167,41,2,208,3,76,58, 
155,238,1688 

2400 DATA 214,3,32,65,150,160 


0,177,167,141,232,3,41,1, 

240.3.1629 

2410 DATA 32,219,150,173,232, 

3.41.4.240.3.32.86.151.173, 
232,3,1774 

2420 DATA 41,2,208,3,76,152, 
154,238,214,3,32,65,150, 
160,0,177,1675 

2430 DATA 167,141,232,3,41,1, 

240.3.32.173.150.173.232.3, 

41.4.1636 

2448 DATA 248,3,32,55,151,173, 

232,3,41,2,208,3,76,211, 
154,238,1822 

2458 DATA 214,3,32,65,150,168, 
8,177,167,141,232,3,41,1, 

248.3.1629 

2460 DATA 32,132,150,173,232, 

3.41.4.248.3.32.14.151.173, 
232,3,1615 

2478 DATA 41,2,208,3,76,11, 

155.96.32.9.158.173.230.3, 
141,214,1544 

2488 DATA 3,173,231,3,141,215, 

3,32,65,158,165,167,141,82, 

3,165,1739 

2498 DATA 168,141,83,3,160,0, 

177,167,41,8,208,3,76,58, 
155,206,1654 

2588 DATA 214,3,32,65,150,168, 
0,177,167,141,232,3,41,4, 
240,3,1632 

2510 DATA 32,219,150,173,232, 
3,41,1,248,3,32,B6,151,173, 
232,3,1771 

2528 DATA 41,8,288,3,76,152, 
154,286,214,3,32,65,158, 
160,8,177,1649 

2538 DATA 167,141,232,3,41,4, 

248.3.32.173.158.173.232.3, 

41.1.1636 


2548 DATA 248,3,32,55,151,173, 

232.3.41.8.208.3.76.211, 
154,286,1796 

2558 DATA 214,3,32,65,158,168, 
0,177,167,141,232,3,41,4, 
240,3,1632 

2560 DATA 32,132,150,173,232, 

3.41.1.248.3.32.14.151.173, 
232,3,1612 

2578 DATA 41,8,288,3,76,11, 

155.96.32.9.158.173.230.3, 
141,214,1558 

2588 DATA 3,173,231,3,141,215, 

3,32,65,158,165,167,141,82, 

3,165,1739 

2583 DATA 168,141,83,3,160,0, 

177,167,41,4,208,3,76,58, 
155,238,1682 

2608 DATA 215,3,32,65,150,168, 
0,177,167,141,232,3,41,2, 
248,3,1631 

2610 DATA 32,219,158,173,232, 

3.41.8.248.3.32.86.151.173, 
232,3,1778 

2628 DATA 41,4,208,3,76,152, 
154,238,215,3,32,65,158, 
168,0,177,1678 

2630 DATA 167,141,232,3,41,2, 

248.3.32.173.150.173.232.3, 
41,8,1641 

2640 DATA 248,3,32,55,151,173 

232.3.41.4.288.3.76.211, 
154,238,1824 

2658 DATA 215,3,32,65,150,168 
0,177,167,141,232,3,41,2, 
248,3,1631 

2660 DATA 32,132,158,173,232, 
3,41,8,240,3,32,14,151,173 
232,3,1619 

2678 DATA 41,4,208,3,76,11, 
155,96,32,9,158,173,230,3; 


141,214,1546 

2688 DATA 3,173,231,3,141,215, 

3,32,65,158,165,167,141,82, 

3,165,1739 

2690 DATA 168,141,83,3,168,8, 

177,167,41,1,288,3,76,58, 
155,206,1647 

2788 DATA 215,3,32,65,150,168 
8,177,167,141,232,3,41,8, 
240,3,1627 

2718 DATA 32,219,150,173,232, 
3,41,2,248,3,32,86,151,173 
232,3,1772 

2720 DATA 41,1,208,3,76,152, 
154,206,215,3,32,65,150, 
168,8,177,1643 

2738 DATA 167,141,232,3,41,8, 

248,3,32,173,150,173,232,3, 
41,2,1641 

2740 DATA 248,3,32,55,151,173,' 

232,3,41,1,288,3,76,211, 
154,206,1789 

2750 DATA 215,3,32,65,158,168, 
0,177,167,141,232,3,41,8, 
248,3,1637 

2760 DATA 32,132,158,173,232, 

3,41,2,240,3,32,14,151,173, 
232,3,1613 

2770 DATA 41,1,288,3,76,11, 
155,96,162,16,168,13,169, 
89,133,251,1584 

2788 DATA 169,280,133,252,32, 
74,155,173,224,3,141,134,2, 
169,181,168,2202 I 

2790 DATA 154,32,38,171,96,19] 
17,17,29,29,29,29,29,29,29, 
29,768 

2808 DATA 29,210,218,210,210, 
218,210,210,210,218,210, 

► 































210,210,210,210,218,3179 


2818 DATA 218,13,8,162,8,168, 
8,169,133,133,251,169,280, 
133,252,32,2033 
2920 DATA 74,155,173,224,3, 
141,134,2,169,240,168,154, 
32,38,171,96,1958 
2838 DATA 19,17,17,17,29,29, 

29.29.29.29.29.29.29.29.29 
29,418 

2840 DATA 29,218,218,210,210, 
218,210,210,210,13,0,162,2 
160,4,169,2219 

2850 DATA 176,133,251,169,208 
133,252,32,74,155,173,224, 
3,141,134,2,2252 
2868 DATA 96,19,17,17,17,17, 

17.29.29.29.29.29.29.29.29 
29,461 

2870 DATA 29,29,29,29,29,29, 
281,201,13,8,162,26,160,19 
169,44,1169 

2888 DATA 133,251,169,208,133 
252,32,74,155,96,142,232,3 
148,223,3,2238 

2890 DATA 162,8,160,8,169,73, 

145.251.280.204.232.3.208, 
246,165,251,2469 

2908 DATA 24,185,40,133,251, 
165,252,105,8,133,252,232, 
236,223,3,208,2362 
2910 DATA 225,96,7,155,189, 
223,1,35,69,103,137,171, 
285,239,17,51,1923 
2920 DATA 85,119,153,187,221, 

255,33,155,155,155,156,156, 
156,156,156,156,2454 
2938 DATA 156,156,157,157,157j 
157,157,157,157,157,158, 
193,194,195,196,203,2707 
2948 DATA 203,283,203,283,283, 

203.203.283.203.203.203, 

203,283,203,203,283,3248 

2950 DATA 203,283,283,283,203, 
283,203,203,283,197,198, 
199,280,202,202,202,3227 
2960 DATA 202,193,194,195,196, 

283.203.203.283.203.203, 
283,203,203,283,203,3213 

2970 DATA 203,203,283,203,203, 

203.203.197.198.199.208, 
282,202,202,202,202,3225 


2988 DATA 202,282,202,282,282 
282,202,193,194,195,196, 
283,283,283,203,203,3207 
2990 DATA 203,203,283,283,283, 

197.198.199.200.282.202, 
202,282,202,202,282,3223 

3000 DATA 282,282,202,202,202 

202.282.282.202.202.202, 

, 282,282,193,194,195,3208 

3810 DATA 196,203,283,197,198 

199.208.202.202.282.202, 

, 282,202,202,202,202,3214 

3828 DATA 202,282,282,202,282 
, 202,202,202,282,202,202, 

202.202.202.282.282.3232 
3030 DATA 202,282,282,208,211, 

282.202.202.202.282.202, 

, 202,282,202,202,282,3247 

3848 DATA 202,202,202,282,202, 
282,202,202,282,202,202, 

202.202.282.202.282.3232 
3858 DATA 282,202,282,282,202, 

208,211,202,202,282,282, 
282,202,202,202,282,3247 
3068 DATA 202,202,202,202,282, 
282,282,202,202,202,202, 

202.282.202.202.202.3232 
3078 DATA 202,202,282,202,282, 

202,282,208,211,282,282, 

282.202.202.202.282.3247 
3880 DATA 282,202,202,202,202, 

282,202,202,202,202,282, 

202.282.282.202.202.3232 
3090 DATA 202,202,282,202,202, 

202,202,282,202,208,211, 

202.202.202.282.202.3247 
3180 DATA 202,202,282,202,282, 

202,202,202,202,282,202, 

282.282.282.202.202.3232 
3110 DATA 202,202,202,282,202, 

202,202,202,282,202,204, 
203,203,285,202,202,3239 
3128 DATA 282,202,202,202,202, 
202,202,202,282,202,202, 

202.202.282.202.202.3232 
3138 DATA 202,202,282,202,282, 

202,202,202,202,282,202, 
284,203,203,203,203,3238 
3148 DATA 205,202,202,282,202, 
202,202,202,282,202,202, 
202,202,202,282,202,3235 
3150 DATA 282,202,202,202,282, 


202,282,202,202,282,202, 

202.204.203.203.283.3237 
3168 DATA 203,203,203,285,282 

202,202,282,202,282,202, 

282.202.202.202.202.3238 
3178 DATA 202,202,202,202,282, 

202,202,202,282,282,202, 

282.202.284.283.203.3236 
3188 DATA 203,203,203,283,203, 

283.205.202.202.202.202, 
282,202,202,202,202,3241 

3190 DATA 202,282,202,202,202, 

202,202,202,282,202,282, 
202,282,202,204,283,3235 
3200 DATA 203,283,203,283,203, 

283.203.203.203.285.202, 

202,282,202,202,282,3244 

3210 DATA 202,202,202,202,202, 

202.202.202.282.282.202, 
282,202,202,282,204,3234 

3228 DATA 283,203,203,203,283, 

203.203.203.283.283.283, 

283.285.202.202.202.3247 
3230 DATA 282,202,202,202,202, 

282,202,282,202,202,202, 

202.202.202.282.202.3232 
3248 DATA 204,203,283,283,283, 

203.203.203.283.203.283, 
203,203,283,203,285,3251 

3250 DATA 202,202,282,282,282, 

202,202,202,282,202,202, 

202.282.202.202.282.3232 
3260 DATA 282,204,203,283,283, 

283.203.203.283.283.203, 

283.203.203.203.203.3248 
3270 DATA 203,283,285,282,202, 

282,202,202,202,282,202, 

202.202.202.202.282.3237 
3288 DATA 282,202,204,283,203, 

203.283.203.283.283.203, 
203,283,203,283,203,3247 

3298 DATA 283,203,203,283,283, 

205.202.202.202.282.202, 
202,282,282,202,202,3240 

3380 DATA 282,282,202,204,203, 

203.203.283.283.203.283, 
203,203,203,203,283,3246 

3318 DATA 283,203,203,203,203, 

203.203.203.285.202.202, 
282,202,202,202,202,3243 

3320 DATA 202,202,202,282,204, 

283.203.203.203.203.203, 


283.283.203.283.283.3245 
3330 DATA 283,203,283,283,203, 

283,203,283,203,203,283, 

205.202.202.282.202.3246 
3340 DATA 202,282,202,202,282, 

204.203.283.203.203.203, 
203,203,283,203,203,3244 

3350 DATA 283,283,203,203,203, 

283.203.203.283.203.203, 

203,203,283,205,282,3249 

3360 DATA 202,282,202,201,17, 

157.281.17.157.201.17.157, 
201,17,157,201,2387 

3378 DATA 17,157,203,8,201, 

201.17.157.157.281.281.17, 
157,157,281,281,2245 

3380 DATA 17,157.157,201,281, 

17.157.157.201.282.17.157, 
157,281,201,17,2216 

3390 DATA 157,157,281,281,17, 

157.157.201.281.17.157.157, 

281.201.17.157.2356 

3488 DATA 157,203,203,17,157, 

157.283.203.17.157.157.203, 
283,17,157,157,2368 

3418 DATA 283,203,0,201,201, 

281.17.157.157.157.201.281, 
201,17,157,157,2431 

3420 DATA 157,281,281,281,17, 

157.157.157.201.281.281.17, 
157,157,157,281,2548 

3438 DATA 281,281,17,157,157, 

157.201.281.201.17.157.157, 

157.201.281.281.2584 
3448 DATA 17,157,157,157,281, 

281.281.17.157.157.157.201, 

281.281.17.157.2356 

3450 DATA 157,157,201,281,281. 

17.157.157.157.201.201.281, 
17,157,157,157,2496 

3460 DATA 201,201,281,17,157, 

157.157.281.281.281.17.157, 

157.157.281.281.2584 

3470 DATA 281,17,157,157,157, 

203.203.283.17.157.157.157, 
283,283,203,17,2412 

3488 DATA 157,157,157,283,203, 

203.17.157.157.157.8.201, 
17,157,281,17,2161 

3490 DATA 157,281,17,157,281, 
17,157,201,17,157,203,8,8, 
234,2,235,1956 
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The routines have two entry 
points: 

SYS 38403 - initialises the 
colours and multicolour mode. 
SYS 38400,SA,WI,XC,YC,DI 
SA - Start address of the maze 
array 

Wl - The width of the maze 
(number of cells) 


XC - Horizontal coordinate of 

the cell you are in 

YC - Vertical coordinate of the 

cell you are in 

Dl - Direction of sight 


1 = North 

2 = East 

3 = South 

4 = West 


In the demo, you may 
notice a number of.points: 

1) I use the normal screen 
memory to store the maze. This 
is handy if your maze is less 
than 1024 cells in size. 

2) The routine does not handle 
your movement. The routine 
will show you a dead end but 
will not prevent you from 


moving through it. Lines 110- 
180 in the demonstration 
handle that. 

3) After calling the routine, 
locations 850 and 851 hold the 
address of the cell you are in. 
By PEEKing this location, you 
can check which exits are open 
to movement. Line 60 and lines 
150 to 180 in the demonstration 
show this. 


PRQ6RAH: 3D SETUP 


18 POKE 5l.!50:CLR 

28 POKE 56578 ,PEEK(56578)OR 3: POKE 56576, 

(PEEK (56576)AND 252)OR 8 
30 POKE 648,288 

48 POKE 53272,(PEEK(53272)AND 248)OR 8 
58 POKE 53272,(PEEK(53272)AND 15)OR 32 
68 POKE 56334,PEEK(56334)AND 254 
78 POKE 1,PEEK(1)AND 251 

88 FOR 1=8 TO 2047:POKE 1+1214896,PEEK(1+53248) :NEXT 
98 POKE 1,PEEK(1)0R 4 
180 POKE 56334,PEEK(56334)OR 1 
2088 FOR L=0 TO 9:CX=8:F0R D=0 TO 15:REAB A:CX=CX+A 
:P0KE 49672+Ltl6+D,A:NEXT D 

2810 READ A:IF AOCX THEN PRINT'ERROR IN LINE";2B40+(Ltl0) 
.•STOP 

2020 NEXT LjPRINT CHRI(147)"NEW SCREEN POSITION AND CHARAC 
TER SETISPC3IN0N SET UP' 

2048 DATA 175,178,178,170,170,170,170,170,255,255,175,170, 
178,170,170,170,2900 

2058 DATA 255,255,255,255,175,170,178,170,255,255,255,255, 
255,255,175,170,3588 

2868 DATA 255,255,255,255,255,255,258,178,255,255,255,255, 
250,170,170,170,3730 

2070 DATA 255,255,250,170,170,170,170,170,250,170,170,178, 
170,178,170,178,3050 

2080 DATA 85,85,85,85,85,85,85,85,178,170,170,170,170,170, 
170,178,2048 

2090 DATA 255,255,255,255,255,255,255,255,178,170,171,171, 
175,175,191,191,3454 

2188 DATA 178,170,234,234,250,250,254,254,255,255,255,255, 
255,85,85,85,3346 

2118 DATA 255,255,255,255,255,255,255,85,191,191,191,191, 
191,191,191,191,3398 

2128 DATA 255,255,255,85,85,85,85,85,255,85,85,85,85,85.85, 
85,2840 

2130 DATA 254,254,254,254,254,254,254,254,4,195,67,79,65, 
116,253,79,2890 

2140 REHttmtttttttmtmttt 

2150 REM* 3D SETUP R0UTINEESPC3II 

2160 REHtmtmmmmmtt 


J6RAH: 3BBEH0 


10 DATA 6,10,14,10,14,10,12 
20 DATA 3,10,11,10,11,10,13 
30 DATA 6,10,10,10,10,10,9 
40 FOR 1=0 TO 20: READ X: POKE 1024+1 ,X:NEXT 
50 POKE 992,11: POKE 993,9 : POKE 994,6 : POKE 995,14 
: POKE 996,0: POKE 997,0 
60 DEF FNA(A)= PEEK(PEEK(851)t256+PEEK(850)) 

: PRINT CHRtfl47): POKE 650,128 
78 SYS 38403 

80 SYS 38480,1024,7,0,0,1:PRINT 1 [HONE!"TAB(36)’INHITEjSPCI 
NE LEFT2,DOWN 3 N[UP-ARROWIE[DONN,LEFT2 3 S' 

90 XP=0:YP=0 

180 BET I$:IF I$="THEN 100 

110 IF I$=“E“THEN DI=2:PRINT"CH0HE]‘TAB(36)"[WHITE,SPC3E 
EDQHN,LEFT23N[UP-ARRDW]SEDOWN,LEFT23W": FL=1: GOTO 190 
120 IF It^W'THEN DI=4:PRINT“[H0HE3'TAB(36)"[WHITE,SPC3W 
[DOWN,LEFT2 3 S[UP-ARROW 3 N[DOWN,LEFT2 3 E *: FL=1: BOTO 190 
130 IF I$="S , THEN DI=3:PRINT’[H0NE3 , TAB(36)"[WHITE,SPC3S 
[DOWN,LEFT23E[UP-ARROW 3 W[DOWN,LEFT23N": FL=1: BOTO 190 
140 IF It="N"THEN DI=1:PRINT B [H0ME3"TAB(36)‘[WHITE,SPC3N 
[DOWN,LEFT23W[UP-ARROW3E[DOWN,LEFT23S*: FL=1: 60T0 190 
150 IF I$="F"AND DI=1 AND YP>0 AND (FNA(A) AND 1) THEN YP= 
YP-1: FL=1: 60T0 190 

160 IF I$="F"AND DI=3 AND YP<2 AND (FNA(A) AND 4)THEN YP=Y 
P+1: FL=1: BOTO 190 

170 IF I$="F"AND DI=2 AND XP<6 AND (FNA(A) AND 2) THEN XP= 
XP+1: FL=1: BOTO 190 

180 IF It="F"AND DI=4 AND XP>0 AND (FNA(A) AND 8) THEN XP= 
XP-1: FL=1 

190 IF FL=1 THEN SYS 38400,1024,7,XP,YP,DI: FL=0 
200 BOTO 100 

210 REHtttttttttttttt 
220 RENt 3D DENO[SPC43t 
230 REHtttttttttttttt 



























fl NSW TAPE TD DI5H 5V5TEm 


** FREEZES & THEN SAVES ALMOST ALL PROGRAMS TO DISK 
(regardless of whether loaded from tape or disk) 

** SAVES THE PROGRAM ON DISK AS ONE FILE . 

** "PROGRAM CRUNCHER” AUTOMATICALLY REDUCES DISK-SPACE USED. 

(you can save 5 or more programs per disk) 

** FAST LOADING BACK. THE BUILT-IN GT LOADER SPEEDS LOADING. 

** POWERFUL MACHINE CODE MONITOR WITH ALL THE USUAL FUNCTIONS PLUS: 

you can stop any program, disassemble and modify any of the 64k 
directly, restart the program from where it was stopped, L1L ML 

** LOADS BACK WITHOUT THE CARTRIDGE CONNECTED. 

(loads back from both 1541 & 1570 disk drives) 

** VERY EASY TO USE. YOU DON’T HAVE TO BE AN EXPERT, THE CARTRIDGE 
DOES IT ALL FOR YOU. 


USE AN EXPERT IF YOU WANT THE JOB DOING PROPERLY. 

FOR TAPE TO DISK - THE EXPERT CARTRIDGE IS FIRST CHOICE EVERY TIMEL 
AVAILABLE NOW FOR CBM 64. Cl28 VERSION AVAILABLE SOON. 
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EERFORMance 
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handle win ^ Can not 

" Wstsg 


. r TC THF TAPE to DISK 

!Ss CWIWK S «S" 

SKI®! SS- " 


ORDERING. 
FOR £ 28.95 



fUK £28.95 Twrrnnr PR0MPT DESPATCH 
YOU WILL ^RFrPTw^ UDlNG VAT & POST&rv 

rou. instrSI ™ n E mi I cartrIke 
operating software X nPT intng^^^’ 

- a I* please ADD Z!,00 - 


THE 


EXTRA. 


TRILOGIC 

Dept EX 


mail order 
CALLERS 


j 29 HOLME LANE BRADFORD BD4 OQA 
329 TONG STREET BRADFORD BD4 9QY 
Tel (0274) 684289 


& P&P 
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datasette D 


| FREE CATALOGUE 
| Please send 17p stamp | 


ORDERING. 

™ ^m^cash, cheque, p -°> 0R bankers draft payable to trilogic. 

OR PAY BY TRANSCASH. A/C NO.650-3659 AT ANY POST OFFICE. 

EXPORT: ADD £1.00 EXTRA. PAYMENT IN STERLING ONLY PLEASE. 
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TRILOGIC 

Dept EX 


MAIL ORDER 29 HOLME LANE BRADFORD BD4 OQA 
CALLERS 329 TONG STREET BRADFORD BD4 9QY 
Tel 10274) 684289 




























Eric Doyle has rustled 
up a few useful tips 
for you this month. 


WE OFTEN GET LETTERS ASK- 
ing how two Basic programs 
can be merged together into a 
single program. This is useful 
for entering old and loved sub¬ 
routines which can take hours 
to type in. 

The problem with most 
simple merge routines is that 
they don't cater for the 
situation when the two 
programs share the same line 
numbers so I have included a 
routine which does a simple 
renumber. 

Enter and save the listing 
and don't worry if you don't 
understand it, all will be 
revealed later. 

The address of the start of 
Basic is stored in the two bytes 
starting at location 43 (hex 2B) 
and the end of a Basic program 
in the two bytes at location 45 
(hex 2D). Normal loading of a 
program leaves the pointer at 
location 45 pointing at the last 
of the three zero bytes with 
which every Basic program 
ends. To merge a second 
program on to the one in 
memory we have to fool the 
computer into believing that 
the start of Basic is now at the 
end of that program. 

This simply means that the 
pointer at location 43 is 
changed to the same value as 
the pointer in location 45. 
Unfortunately, that is not quite 
right because we have to lose 
the last two zero bytes from our 


program in memory first. In 
practice, we load pointer 43 
with the value of pointer 45 
minus two. 

To get the actual value of 
the pointer the first byte is 
added to the second byte 
multiplied by 256: 

P=PEEK (45)+ PEEK (46) *256 

Subtracting two from P: 

P=P-2 

And splitting the result into 
pointer 43: 

POKE 43,P AND 255: POKE 
44,P/256 

We can now load our 
second program in the normal 
way after which we redirect 
pointer 43 to the normal begin¬ 
ning of Basic in this way: 

POKE43,1: POKE44,8 

Listing the program will 
now show that both programs 
have been joined together. 
Obviously, the above lines 
must be entered in direct mode 
just as they are written here and 
not given line numbers 
because that would really crash 
the system. 

The programs cannot be 
said to be truly merged until 
the line numbers have been 
changed. The polite way to 
describe this dog's dinner of a 
program is to say that it is 
simply two concatenated 
programs. A renumber routine 
is needed. 

Repeating the above pro¬ 
cedure would allow a third 


renumbering program to be 
merged but to get it to run 
would be a nightmare. One 
solution is to fool the 64 into 
believing that Basic memory 
lies elsewhere in memory for 
the time being. 

A likely place is the 'spare' 
block of memory which is 
much favoured by machine 
code programmers and starts at 
49152. To alter the memory 
layout use the following line: 

POKE44,192: POKE56,208: POKE 
49152,0:NEW 

Now load the renumber 
routine which you saved earlier 
using the normal LOAD syntax 
for your disk or tape. 

Type RUN and press 
RETURN. When the program 
stops press RETURN again and, 
Hey Presto, there's your re¬ 
numbered listing ready to be 
saved once you've changed all 
the GOTOs and GOSUBs (what 
do you expect, real magic?). 

What happened is that the 
program followed all of the line 
links through the program in 
the normal Basic memory and 
changed the line numbers to 
the values selected in the 
renumber program. 

Talking of magic. I bet I can 
make your screen wobble. Try 
this: 

FOR A=0 to 200:POKE53270,A: 
NEXTA:POKE53270 

How's that for an explosive 
effect? 

If you've ever had a 
program which uses the GET 
command it may have 
occurred to you that it would 



61 


be nice to have a flashing 
cursor to indicate that the 
computer is waiting for some¬ 
thing to be input. Memory 
location 204 enables and dis¬ 
ables the cursor, so write your 
GET statement like this: 

10 POKE 204,0:GET A$:IF 

A£=“"THEN10 

20 PRINT A$ 

Well that's the last gem for 
this month. If you've written a 
handy little routine which 
you'd like to see on 
Commodores around the 
world, why not send them to 
Scratchpad, Your Commodore, 
No 1 Golden Square, London 
W1R 3AB, _ 

ready. 

are you sure? 

10 INPUT “FIRST LINE N0“;NL 
20 INPUT “LINE INCREMENT-;IN 
C 

30 NL=NL-INC 
40 LK=2049:LN=2051 
50 IFPEEK(LK)=0ANDPEEK(LK+1) 
s 0THEN 110 
60 NL=NL+INC 

70 P0KELN,NL AND 255:P0KELN+ 

1,NL/256 

80 LK=PEEK(LK)+PEEK(LK+1)125 
6 

90 LN=LK+2 
100 GOTO50 

110 PRINT"P0KE45,“(LKAND255) 
+2"s P0KE46,"INT(LK/256); 

120 PRINT M s P0KE44,8s P0KE43, 

1:P0KE56,160:LCs IHUPHUPH 
UP1CUP1" 
























1070 DATA 32,172,192,32,23, 
193,32,206,192,32 
DATA 9,193,76,31,192, 


1320 DATA 219,201,6,240,50, 
173,224,217,205,239 
1330 DATA 207,240,42,169,80, 


With lain Murray’s 

word processor, there’s 
no need for shabby 
letters and scraggy 
documents. 


WORDPROK IS A DISK-BASED 
word processing package 
offering a full multi-function 
machine code screen editor 
and high-speed print out 
routine, along with a Basic 
main program equipped with a 
number of other facilities. It 
also allows you to "customise 7 ' 
it easily if required. 

A word processor is a 
program which turns a com¬ 
puter into an "electronic 
typewriter". It allows you to 
enter text, correcting any 
mistakes as you go, and lets you 
add, delete, or change any 
sections as required before the 
final printout is produced. Thus 
the final draft is all that needs to 
be printed on paper, and it 
should be error-free, saving a 
lot of waste paper. 

The listing comprises two 
programs: the first is a Basic 
loader program for the 
machine code section. This 
loads the machine code (in a 
series of DATA statements) into 
memory starting at 49152, and 
when the data is correct and 
loaded, the machine code 
section (just over 3K) is saved as 
a machine code file to disk. The 
main program can then load 
this program file, and the 
loader with the machine code 
data need only be used once, 
hence saving time when it is in 
use. The second program is the 
word processor itself, and 
provides easy access to the 
machine code routines used. 
Although the machine code 
would be difficult to modify, 
the Basic program could be 
adapted to suit your own 
requirements. 

Wordprok Manual 

On running the program, the 
machine code section is auto¬ 
matically loaded from disk if it 
is not already present in 
memory. A menu is then pre¬ 
sented, with the following 
options. 

1, EDIT DOCUMENT 


PROGRAM: PRQKCQDE.BEN 

10 REM III WORDPROK CODE SEN 
ERATOR m 

20 REM *11 BY IAIN MURRAY 
(C! 19B6 Ut 

30 REM **t FOR YOUR COMMQDOR 

e m 

50 POKE 53280,6:POKE 53281,1 
60 PRINT "[CLEAR,D0WN3, 
RIGHTS,RVSON,SPC2W0RDPR0K 
MACHINE CODE GENERATOR 
ESPC,RVSOFF]" 

65 PRINT*[DOWNS,RI6HT23THIS 
WILL SAVE ’PROKCODE’ ONT 
0 DISK" 

70 PRINT H CD0WN5,RIGHT7] 
LOADING DATA - PLEASE WAIT 
100 AD=49152:C=0 
110 READ A:POKE AD,A:C=C+A 
:AD=AD+1 

120 IF AD<52441 THEN 110 
130 IF A=96 AND C=507913 THE 
N 150 

140 PRINT "[DQWN3,RIGHT73 
ERROR IN DATA! 1 ":END 
150 PRINT "CD0WN3,RIGHT?] 

DATA OK-PRESS[SPC,RVSON, 
SPCISPACE'SPC,RVSOFF,3PC3 
TO SAVE" 

160 GET At:IF A$<>“ " THEN 1 

60 

170 POKE 43,0:POKE 44,192 
:POKE 45,218:P0KE 46,204 
180 SAVE "PROKCODE",8 
190 END 

1000 DATA 169,80,133,251,169, 

4,133,252,173,254 
1010 DATA 207,133,253,173, 
255,207,133,254,169,0 
1020 DATA 141,232,207,141, 
252,207,141,253,207,160 
1030 DATA 0,177,253,201,208, 
240,20,201,196,240 
1040 DATA 16,201,211,240,12, 

201,202,240,8,201 
1050 DATA 204,240,4,201,195, 
208,28,32,23,193 
1060 DATA 177,253,145,251,32, 
154,192,32,191,192 


201,102,208,20,145 
1090 DATA 251,32,154,192,32, 
191,192,32,206,192 
1100 DATA 32,30,193,32,23, 

193.76.103.192.201 
1110 DATA 159,240,205,145, 

251,32,154,192,32,191 
1120 DATA 192,32,172,192,173, 

238,207,240,16,173 
1130 DATA 252,207,201,29,48, 
9,177,253,201,32 
1140 DATA 208,3,32,23,193,32, 
206,192,32,9 

1150 DATA 193,76,31,192,230, 
251,165,251,208,2 
1160 DATA 230,252,96,230,253, 
165,253,208,2,230 
1170 DATA 254,96,238,252,207, 
173,252,207,201,40 
1180 DATA 48,8,238,253,207, 
169,0,141,252,207 
1190 DATA 96,165,251,201,152, 

208.8.165.252.201 

1200 DATA 7,208,2,104,104,96, 

173.232.207.208 

1210 DATA 53,165,253,205,249, 

207,208,46,165,254 
1220 DATA 205,250,207,208,39, 
174,253,207,232,232 
1230 DATA 172,252,207,173, 

249.207.205.254.207.208 
1240 DATA 12,173,250,207,205, 

255,207,208,4,162 
1250 DATA 2,160,0,24,32,240, 
255,160,0,169 

1260 DATA 1,141,232,207,96, 
165,253,24,105,1 
1270 DATA 133,253,165,254, 
105,0,133,254,96,169 
1280 DATA 32,145,251,32,154, 

192.165.251.201.152 

1290 DATA 208,9,165,252,201, 
7,208,3,104,104 
1300 DATA 96,32,172,192,173, 
252,207,201,0,240 
1310 DATA 3,76,23,193,32,206, 

192.96.173.152 


133,251,169,216,133 
1340 DATA 252,173,239,207, 
145,251,165,251,24,105' 
1350 DATA 1,133,251,165,252, 
105,0,133,252,201 
1360 DATA 219,208,234,165, 

251.201.152.208.228.173 
1370 DATA 239,207,141,134,2, 

96.138.72.24.173 

1380 DATA 250,207,105,177, 
176,17,56,169,224,237 
1390 DATA 229,207,24,109,249, 

207.144.54.173.229 

1400 DATA 207,240,49,56,173, 
249,207,237,229,207 
1410 DATA 133,251,173,250, 
207,233,0,133,252,172 
1420 DATA 229,207,177,251, 
160,0,145,251,201,102 
1430 DATA 240,6,32,154,192, 

76.163.193.174.229 

1440 DATA 207,32,37,199,202, 
208,250,169,0,141 
1450 DATA 229,207,104,170,96, 

173.246.207.133.251 
1460 DATA 173,247,207,133, 

252,160,0,177,251,172 
1470 DATA 229,207,145,251, 

165.251.205.249.207.208 
1480 DATA 42,165,252,205,250, 

207.208.35.172.229 

1490 DATA 207,136,169,0,141, 
251,207,169,32,145 
1500 DATA 251,173,251,207, 
240,8,104,104,169,0 
1510 DATA 141,248,207,96,32, 

10,199,136,192,255 
1520 DATA 208,231,96,198,251, 

165.251.201.255.208 
1530 DATA 2,198,252,76,209, 

193.169.32.133.251 

1540 DATA 169,78,133,252,160, 
0,140,244,207,140 
1550 DATA 245,207,177,251, 

201,102,208,1,96,201 
1560 DATA 194,240,6,32,154, 
192,76,40,194,32 ► 


This selection gives access to 
the machine code screen 







































1570 DATA 154,192,177,251, 

201.102.240.236.201.32 
1580 DATA 240,243,201,197, 

240,228,238,244,207,173 
1590 DATA 244,207,208,3,238, 
245,207,32,154,192 
1600 DATA 177,251,201,102, 
240,208,201,197,240,204 
1610 DATA 201,32,240,211,201, 
159,240,207,76,85 
1620 DATA 194,76,73,197,169, 
0,141,248,207,141 
1630 DATA 251,207,173,142,2, 

41.2.240.38.32 

1640 DATA 228,255,240,236, 
201,137,208,6,238,33 
1650 DATA 208,76,73,197,201, 

138.208.6.238.32 

1660 DATA 208,76,73,197,201, 
139,240,3,76,39 
1670 DATA 195,238,239,207,76, 
73,197,173,142,2 
1680 DATA 41,4,208,3,76,31, 
195,32,228,255 
1690 DATA 208,3,76,112,194, 

201.6.208.8.169 

1700 DATA 1,141,248,207,133, 

204,96,201,30,208 
1710 DATA 10,169,1,133,204, 

169,2,141,248,207 
1720 DATA 96,201,31,208,15, 
172,138,2,173,237 
1730 DATA 207,141,138,2,140, 

237,207,76,73,197 
1740 DATA 201,28,208,10,169, 

4.141.248.207.169 

1750 DATA 1,133,204,96,201, 
16,240,35,201,4 
1760 DATA 240,31,201,19,240, 
27,201,2,240,23 
1770 DATA 201,5,240,19,201, 
18,240,15,201,10 
1780 DATA 240,11,201,12,240, 
7,201,3,240,3 

1790 DATA 76,112,194,24,105, 

192.76.19.197.32 

1800 DATA 228,255,208,3,76, 

112,194,201,166,208 
1810 DATA 3,76,112,194,201, 

160.208.5.169.32 

1820 DATA 76,19,197,201,192, 
208,5,169,64,76 
1830 DATA 19,197,201,13,208, 
5,169,159,76,19 
1840 DATA 197,201,141,208,5, 

169.159.76.19.197 
1850 DATA 201,29,208,6,32, 

199.198.76.73.197 
1860 DATA 201,157,208,6,32, 

233.198.76.73.197 


1870 DATA 201,17,208,13,162, 
0,32,199,198,232 
1880 DATA 224,40,208,248,76, 

73.197.201.145.208 
1890 DATA 13,162,0,32,233, 

198.232.224.40.208 

900 DATA 248,76,73,197,201, 

147.208.16.172.238 
1910 DATA 207,192,1,208,2, 

136.136.200.140.238 

1920 DATA 207,76,73,197,201, 
19,208,15,173,254 
1930 DATA 207,141,249,207, 

173.255.207.141.250.207 
1940 DATA 76,73,197,201,20, 

208,14,169,1,141 
1950 DATA 229,207,32,120,193, 
32,233,198,76,73 
1960 DATA 197,201,148,208,11, 

169.1.141.229.207 

1970 DATA 32,199,193,76,73, 
197,201,138,208,19 
1980 DATA 169,40,141,229,207, 
32,120,193,173,229 
1990 DATA 207,208,3,76,123, 
195,76,112,194,201 
2000 DATA 139,208,11,169,40, 
141,229,207,32,199 
2010 DATA 193,76,73,197,201, 

133.208.80.173.249 
2020 DATA 207,133,251,173, 

250,207,133,252,162,0 
2030 DATA 165,251,205,246, 
207,208,27,165,252,205 
2040 DATA 247,207,208,20,169, 
0,141,251,207,32 
2050 DATA 10,199,173,251,207, 
240,1,96,169,102 
2060 DATA 160,1,145,251,169, 
32,160,0,145,251 
2070 DATA 32,154,192,232,224, 

5.208.208.173.249 

2080 DATA 207,24,105,5,141, 

249,207,173,250,207 
2090 DATA 105,0,141,250,207, 
76,73,197,201,135 
2100 DATA 208,31,162,0,160,0, 

32.233.198.173 

2110 DATA 249,207,133,251, 
173,250,207,133,252,177 
2120 DATA 251,201,32,240,5, 

232,224,80,208,232 
2130 DATA 76,73,197,201,136, 
208,31,162,0,160 
2140 DATA 0,32,199,198,173, 

249.207.133.251.173 
2150 DATA 250,207,133,252, 

177,251,201,32,240,5 
2160 DATA 232,224,80,208,232, 
76,73,197,201,137 


2170 DATA 208,16,162,0,160,3, 

32.233.198.232 

2180 DATA 208,250,136,208, 
247,76,73,197,201,140 
2190 DATA 208,16,162,0,160,3, 

32.199.198.232 

2200 DATA 208,250,136,208, 
247,76,73,197,201,134 
2210 DATA 208,47,162,20,169, 

1,141,229,207,32 
2220 DATA 120,193,32,233,198, 
173,249,207,133,253 
2230 DATA 173,250,207,133, 
254,198,253,165,253,201 
2240 DATA 255,208,2,198,254, 
160,0,177,253,201 
2250 DATA 32,240,3,202,208, 
214,76,179,195,141 
2260 DATA 231,207,24,105,192, 

144.29.173.231.207 

2270 DATA 24,105,63,176,12, 

173.231.207.56.233 

2280 DATA 64,141,231,207,76, 

16.197.173.231.207 

2290 DATA 56,233,128,141,231 
207,173,231,207,72 
2300 DATA 173,249,207,133, 
251,173,250,207,133,252 
2310 DATA 160,0,104,145,251, 

173.246.207.205.249 

2320 DATA 207,208,27,173,247, 

207.205.250.207.208 
2330 DATA 19,200,169,102,145 

251,169,0,141,251 
2340 DATA 207,32,10,199,173, 
251,207,240,1,96 
2350 DATA 32,199,198,169,1, 

141.228.207.32.233 
2360 DATA 198,32,0,192,32, 

199,198,32,62,193 
2370 DATA 173,232,207,208, 
120,173,250,207,205,255 
2380 DATA 207,240,5,16,28,76, 

118.197.173.249 

2390 DATA 207,205,254,207, 

240.17.16.15.173.249 
2400 DATA 207,141,254,207, 

173.250.207.141.255.207 
2410 DATA 76,78,197,173,250, 

207,197,254,240,5 
2420 DATA 48,3,76,154,197, 
173,249,207,197,253 
2430 DATA 240,63,48,61,173, 

249.207.201.32.208 

2440 DATA 7,173,250,207,201, 

78.240.47.173.249 

2450 DATA 207,56,233,12,141, 

254.207.173.250.207 

2460 DATA 233,0,141,255,207, 

201,78,208,23,173 ^ 


editor, turning the computer 
into a typewrite on the screen. 
All the standard upper and 
lower case letters are available, 
as well as the graphics charac¬ 
ters accessed via the Commo¬ 
dore logo key. 

Text will appear at the 
flashing cursor as in the normal 
screen editor. A small check 
square character (X) indicates 
the end of the text. To exit 
from the editor, hold CTRL and 
Press “ —On re-entering the 
editor from the main menu, the 
cursor will be in the position it 
was in when the exit was made. 
To display the help facility, 
hold CTRL and press " t ”, 
These messages are also dis¬ 
played at the foot of the screen 
throughout editing. The help 
facility gives an on-screen 
summary of the screen editor 
functions and control 
characters. These are as 
follows: 

CTRL-: Return to main menu. 
CTRL t : Print on-screen help 
messages. These are printed on 
the screen one page at a time, 
then control is returned to the 
editor. 

CTRL £: Enter serach/replace 
mode. This allows you to search 
for specific text in the file, and 
replace it if required. The 
search string is requested 
(along with a replace string if 
required). Both strings must 
contain at least two characters, 
and not more than 40 
characters. The search routine 
then finds the next occurrence 
of the search string in the text 
starting from the current cursor 
position, and displays this. 
Pressing SPACE will find the 
next occurrence of the search 
string. Pressing R (if replace was 
selected) will replace the word 
found with the replace word, 
and find the next occurrence of 
the search string. Pressing 
RETURN will return control to 
the editor. 

CTRL =: Automatic key repeat 
on£off toggle. This allows all 
keys to auto-repeat or not. 
CRSR Right: Move cursor to 
next character. 

CRSR Left: Move cursor to 
previous character. 

CRSR Up: Move cursor back 40 
characters. 

CRSR Down: Move cursor 
forward 40 characters. 

CLR: Split/unsplit words. Nor¬ 
mally, words are split at the end 
of a line as the line “wraps- 
round”. Pressing CLR will auto- 
atically throw a line feed before 
the end of the line, so allowing 










the text to be read more easily. 
HOME: The cursor is moved to 
the top left corner of the 
screen. 

FI: Tab. Five spaces are printed 
from the current cursor 
position. 

F3: Delete word. Text is deleted 
from the current cursor 
position back to the first 
preceding space. 

F5: Cursor back one word. The 
cursor is moved left to the first 
preceding space. 

F7: Cursor forward one word. 
The cursor is moved right to the 
first space. 

F2: Cursor up one page. The 
cursor is moved back 256 
characters. 

F4: Delete line. The 40 charac¬ 
ters preceding the cursor are 
deleted. 

F6: Insert line. 40 spaces are 
inserted at the current cursor 
position. 

F8: Cursor down one page. The 
cursor is moved forward 256 
characters. 

CBM FI: Change background 
colour. 

CBM F3: Change border 
colour. 

CBM F5: Change text colour. 

In addition to these control 
function keys, several keys add 
special characters into the text 
in reverse field. These are used 
to control formatting during 
printing and are as follows: 

—: RETURN character. Jumps 
to next line (line throw). 

CTRL P: Page throw. When 
printing out, a new page is 
started. 

CTRL D: Double line spacing. A 
line is thrown, and subsequent 
lines are double spaced i.e. one 
blank line appears between 
each line of text. This is the 
default spacing. 

CTRL S: Single line spacing. A 
line is thrown, and subsequent 
lines are single spaced i.e. no 
space between lines of text. 
CTRL L: Left justify text. A line is 
thrown, and subsequent text is 
printed left justified i.e. the left 
margin is aligned, but the right 
margin is ragged. This is similar 
to the output from a normal 
typewriter. 

CTRL R: Right justify text. A 
line is thrown, and subsequent 
text is printed right justified i.e. 
the right margin is aligned, but 
the left margin is ragged. 

CTRL J: Right and left justify. A 
line is thrown, and subsequent 
lines are printed right and left 
justified i.e. both margins are 
aligned. This is the default 
justification setting. 


2470 DATA 254,207,201,31,16, 
16,169,32,141,254 
2480 DATA 207,141,249,207, 

169.78.141.255.207.141 
2490 DATA 250,207,76,78,197, 

173.228.207.208.1 

2500 DATA 96,76,112,194,169, 
1,133,204,169,65 
2510 DATA 133,251,169,3,133, 
252,173,249,207,133 
2520 DATA 253,173,250,207, 
133,254,160,0,177,253 
2530 DATA 201,102,240,13,162, 
0,32,163,192,160 
2540 DATA 0,177,253,201,102, 

208.6.169.1.141 

2550 DATA 241,207,96,72,138, 

168.104.209.251.208 
2560 DATA 229,232,236,64,3, 

208.225.165.253.141 
2570 DATA 249,207,165,254, 

141,250,207,202,32,233 
2580 DATA 198,202,208,250, 
169,0,141,228,207,32 
2590 DATA 78,197,169,0,133, 

204,32,228,255,201 
2600 DATA 13,208,10,169,0, 

141.241.207.169.1 

2610 DATA 133,204,96,201,32, 

208,3,76,224,197 
2620 DATA 72,173,240,207,208, 
4,104,76,60,198 
2630 DATA 104,201,82,208,217, 

169.1.133.204.173 

2640 DATA 106,3,201,2,240,17, 
201,1,240,19 

2650 DATA 56,173,107,3,237, 

64,3,141,229,207 
2660 DATA 32,199,193,32,168, 

198.76.224.197.32 

2670 DATA 168,198,56,173,64, 

3.170.237.107.3 

2680 DATA 141,229,207,32,199, 

198.202.208.250.32 
2690 DATA 120,193,174,64,3, 

32.233.198.202.208 

2700 DATA 250,76,224,197,173, 

249.207.133.253.173 
2710 DATA 250,207,133,254, 

169.108.133.251.169.3 
2720 DATA 133,252,160,0,177, 

251,145,253,200,204 
2730 DATA 107,3,208,246,96, 
152,72,160,0,173 
2740 DATA 249,207,133,251, 
173,250,207,133,252,177 
2750 DATA 251,201,102,240,11, 
238,249,207,173,249 
2760 DATA 207,208,3,238,250, 


207,104,168,96,152 
2770 DATA 72,24,173,250,207, 

105.177.176.7.173 
2780 DATA 249,207,105,224, 

144.13.206.249.207.173 
2790 DATA 249,207,201,255, 

208,3,206,250,207,104 
2800 DATA 168,96,173,247,207, 

201.159.208.8.169 

2810 DATA 1,141,251,207,76, 

36.199.238.246.207 

2820 DATA 173,246,207,208,3, 

238.247.207.96.206 
2830 DATA 246,207,173,246, 

207.201.255.208.3.206 
2840 DATA 247,207,96,169,8, 

170,160,255,32,186 
2850 DATA 255,173,64,3,160,3, 
162,65,32,189 

2860 DATA 255,32,166,199,165, 
251,133,253,165,252 
2870 DATA 133,254,32,208,199, 
169,253,166,251,164 
2880 DATA 252,32,216,255,96, 
169,8,170,160,0 
2890 DATA 32,186,255,173,64, 
3,160,3,162,65 
2900 DATA 32,189,255,169,0, 
174,249,207,172,250 
2910 DATA 207,32,213,255,169, 

32,141,254,207,141 
2920 DATA 249,207,169,78,141, 

250.207.141.255.207 

2930 DATA 169,32,133,251,169, 

78,133,252,32,208 
2940 DATA 199,165,251,141, 
246,207,165,252,141,247 
2950 DATA 207,169,102,160,0, 

145.251.96.169.32 

2960 DATA 133,251,169,78,133, 
252,169,0,141,230 
2970 DATA 207,168,177,251, 

201.194.240.21.201.197 
2980 DATA 240,10,201,102,240, 

6,32,154,192,76 
2990 DATA 180,199,169,1,141, 
230,207,104,104,96 
3000 DATA 160,0,152,141,230, 

207.177.251.201.197 

3010 DATA 240,13,201,102,208, 

3.76.233.199.32 

3020 DATA 154,192,76,214,199, 

32.154.192.96.169 

3030 DATA 48,133,252,169,2, 
133,253,169,0,133 
3040 DATA 144,169,36,133,251, 

169.251.133.187.169 

3050 DATA 0,133,188,165,253, 
133,183,169,8,133 


3060 DATA 186,169,96,133,185, 
32,213,243,165,186 
3070 DATA 32,180,255,165,185, 
32,150,255,164,144 
3080 DATA 208,68,160,6,132, 
251,32,165,255,166 
3090 DATA 252,133,252,164, 
144,208,53,164,251,136 
3100 DATA 208,238,164,252,32, 

205.189.169.32.32 

3110 DATA 210,255,32,165,255, 

72,173,142,2,208 
3120 DATA 251,104,166,144, 

208.24.170.240.6.32 
3130 DATA 210,255,76,64,200, 

169,13,32,210,255 
3140 DATA 165,197,201,63,240, 
4,160,4,208,190 
3150 DATA 32,66,246,96,165, 
251,141,226,207,165 
3160 DATA 252,141,227,207, 

173.196.207.240.28.169 
3170 DATA 200,141,38,3,169, 

204.141.39.3.169 

3180 DATA 127,141,13,221,169, 

255.141.3.221.169 

3190 DATA 0,141,1,221,76,171, 
200,169,4,170 

3200 DATA 160,7,32,186,255, 
169,0,32,189,255 
3210 DATA 32,192,255,32,156, 

204.32.151.204.169 

3220 DATA 0,141,197,207,170, 
189,215,207,157,219 
3230 DATA 207,232,224,4,208, 

245.32.166.199.169 

3240 DATA 1,141,208,207,141, 

211.207.173.225.207 

3250 DATA 240,6,32,39,204,76, 
219,200,32,39 

3260 DATA 204,32,23,204,32, 
23,204,169,0,141 
3270 DATA 225,207,141,199, 
207,141,203,207,141,205 
3280 DATA 207,162,0,142,206, 
207,142,202,207,160 
3290 DATA 0,177,251,141,207, 

207,32,154,192,173 
3300 DATA 207,207,201,159, 

208.3.76.147.201.201 
3310 DATA 102,208,3,76,147, 

201,201,197,208,3 
3320 DATA 76,147,201,24,105, 

64.144.34.173.207 
3330 DATA 207,201,208,240, 

116.201.202.240.112.201 
3340 DATA 210,240,108,201, 

204,240,104,201,195,240 
3350 DATA 100,201,211,240,96, 
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201.196.240.92.76 

3360 DATA 241,200,173,207, 

207.24.105.224.176.12 
3370 DATA 173,207,207,24,105, 

64.141.207.207.76 

3380 DATA 127,201,173,207, 

207,201,64,208,8,169 
3390 DATA 96,141,207,207,76, 
127,201,24,105,192 
3400 DATA 144,29,173,207,207, 

24.105.160.144.12 

3410 DATA 173,207,207,24,105, 

64,141,207,207,76 
3420 DATA 127,201,173,207, 

207,24,105,128,141,207 
3430 DATA 207,173,207,207, 

157,192,206,232,169,32 
3440 DATA 157,192,206,236, 
210,207,240,11,76,241 
3450 DATA 200,169,1,141,202, 
207,76,180,201,177 
3460 DATA 251,201,32,240,19, 
198,251,165,251,201 
3470 DATA 255,208,2,198,252, 
202,240,74,177,251 
3480 DATA 201,32,208,237,138, 

208,3,76,237,202 
3490 DATA 142,206,207,173, 
192,206,201,32,208,36 
3500 DATA 173,193,206,201,32, 

208.7.173.194.206 

3510 DATA 201,32,240,22,162, 

1.206.206.207.189 

3520 DATA 192,206,202,157, 

192.206.236.206.207.240 
3530 DATA 209,232,232,76,215, 

201.174.206.207.189 

3540 DATA 192,206,201,32,208, 

6.206.206.207.76 

3550 DATA 232,201,162,0,238, 

206.207.173.202.207 

3560 DATA 240,22,173,206,207, 

208.3.76.237.202 

3570 DATA 173,208,207,201,2, 

240.7.201.3.240 

3580 DATA 3,76,167,202,173, 

208.207.208.3.76 

3590 DATA 167,202,201,1,208, 
104,162,0,189,192 
3600 DATA 206,201,32,208,9, 

232.236.206.207.208 

3610 DATA 243,76,167,202,142, 

200.207.76.67.202 

3620 DATA 189,192,206,201,32, 

240.9.232.236.206 

3630 DATA 207,208,243,76,167, 

202.174.206.207.189 

3640 DATA 192,206,201,32,240 
12,202,236,200,207 


3650 DATA 208,243,206,206, 
207,76,76,202,202,142 
3660 DATA 201,207,174,206, 
207,189,192,206,232,157 
3670 DATA 192,206,202,202, 

236,201,207,208,242,173 
3680 DATA 206,207,205,210, 

207.208.3.76.167.202 
3690 DATA 238,206,207,174, 

201.207.202.76.79.202 
3700 DATA 173,210,207,56,237, 

206.207.72.173.208 
3710 DATA 207,201,2,240,3, 

104.74.72.104.24 

3720 DATA 109,209,207,170,76, 
170,202,174,209,207 
3730 DATA 169,32,32,210,255, 

202.208.248.173.196 

3740 DATA 207,240,42,189,192, 
206,24,105,191,144 
3750 DATA 34,189,192,206,24, 

105,165,144,17,189 
3760 DATA 192,206,24,105,159, 

144,18,189,192,206 
3770 DATA 56,233,128,76,228, 

202.189.192.206.24 

3780 DATA 105,32,76,228,202, 
189,192,206,32,210 
3790 DATA 255,232,236,206, 

207,208,197,32,23,204 
3800 DATA 238,205,207,173, 

205.207.205.212.207.208 
3810 DATA 3,76,174,203,173, 

211,207,240,17,32 
3320 DATA 23,204,238,205,207, 
173,205,207,205,212 
3830 DATA 207,208,3,76,174, 

203.173.202.207.208 

3340 DATA 20,173,142,2,41,1, 
240,10,32,171 

3850 DATA 204,201,32,240,3, 
76,223,203,76,233 
3860 DATA 200,173,237,207, 

201.159.240.229.201.196 
3870 DATA 208,8,169,1,141, 

211,237,76,166,203 
3880 DATA 201,211,208,8,169, 
0,141,211,207,76 
3890 DATA 166,203,201,195, 

208.8.169.3.141.208 

3900 DATA 207,76,166,203,201, 
204,208,8,169,0 
3910 DATA 141,208,207,76,166, 
203,201,210,208,8 
3920 DATA 169,2,141,208,207, 

76,166,203,201,202 
3930 DATA 208,8,169,1,141, 

, 208,207,76,166,203 

3940 DATA 201,208,208,22,169, 


1.141.199.207.173 

3950 DATA 205,207,205,212, 

207,240,25,32,23,204 
3960 DATA 238,205,207,76,133, 
203,201,197,208,8 
3970 DATA 169,1,141,203,207, 
76,128,203,201,102 
3980 DATA 240,244,173,199, 
207,208,3,76,25,203 
3990 DATA 32,23,204,32,23, 

204.32.49.204.32 

4000 DATA 23,204,32,23,204, 
173,203,207,240,61 
4010 DATA 206,214,207,173, 
214,207,240,21,162,0 
4020 DATA 189,219,207,157, 

215.207.232.224.4.208 
4030 DATA 245,169,1,141,225, 

207.76.188.200.173 

4040 DATA 196,207,240,13,169, 

202.141.38.3.169 

4050 DATA 241,141,39,3,76, 

244.203.32.231.255 
4060 DATA 173,226,207,133, 

251,173,227,207,133,252 
4070 DATA 96,173,213,207,240, 
10,32,171,204,201 
4080 DATA 32,240,3,76,223, 

203.32.23.204.32 

4090 DATA 23,204,76,210,200, 

169.13.32.210.255 

4100 DATA 173,196,207,240,5, 

169.10.32.210.255 

4110 DATA 96,173,223,207,201, 
1,208,95,76,56 
4120 DATA 204,173,223,207, 
201,2,208,85,174,224 
4130 DATA 207,169,32,32,210, 

255.202.208.248.169 
4140 DATA 45,32,210,255,169, 

32,32,210,255,162 
4150 DATA 3,189,215,207,201, 

48.208.3.202.208 

4160 DATA 246,189,215,207,32, 
210,255,202,208,247 
4170 DATA 238,216,207,173, 
216,207,201,58,208,23 
4180 DATA 169,48,141,216,207, 
238,217,207,173,217 
4190 DATA 207,201,58,208,8, 

169.48.141.217.207 

4200 DATA 238,218,207,169,32 
32,210,255,169,45 
4210 DATA 32,210,255,32,23, 

204,96,32,23,204 
4220 DATA 76,223,203,162,4, 
32,201,255,32,183 
4230 DATA 255,41,128,240,7, 

169.5.141.197.207 


CTRL C: Centralise text on line. 

A line is thrown, and sub¬ 
sequent lines are printed with 
the text centralised on the line. 
This would normally be used to 
print headings etc. 

CTRL B: Beginning marker. 
This sets the beginning of the 
block for saving, printing and 
word counting. More than one 
begin marker may be used, but 
only the first will be 
recognised. 

CTRL E: End marker. This sets 
the end of the block for saving, 
printing, and word counting. 
More than one end marker 
may be used, but only the first 
will be recognised. If no end 
marker is used, the action will 
continue until the end of the 
text marker (X) is reached. 

2. SAVE DOCUMENT 
This option allows you to save 
any or all of the text currently in 
the memory to disk. The text 
saved is from the first begin¬ 
ning marker (B) to the first end 
marker (E or X), and the save 
routine gives an exit option if 
these markers have not been 
set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames (i.e. those containing 
the characters *, ? or.) are not 
acceptable. On saving, the 
suffix .TXT is added to the disk 
file name to assist in identi¬ 
fication of text files. If the 
markers are incorrectly set, if 
the disk drive is not available, 
or if the file exists, an error 
message is printed, otherwise a 
successful save message is dis¬ 
played, and pressing SPACE 
causes a return to the main 
menu. 

3. LOAD DOCUMENT 

This option allows you to load a 
text file from disk into memory 
for editing or printing. Loading 
will start from the current 
cursor position, and an exit 
option is given if this has not 
been set up. A filename is then 
requested, which can be up to 
12 characters long. Wild card 
filenames are not acceptable. 
The routine will then search for 
a file of this name with the 
suffix .TXT, and if a load error 
occurs, an error message is dis¬ 
played, otherwise a successful 
load message is displayed and 
pressing SPACE causes a return 
to the main menu. As loading 
commences from the cursor 
position, several files may be 
chained into one in memory. 
When loading is complete, the 
^ cursor is set to the start of the 
_I text memory. 
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4. PRINT DOCUMENT 

This option allows you to print 
the current document in 
memory to a printer (device 
#4). The text is printed from 
the first beginning marker (B) 
to the first end marker (E orK). 
The text is automatically for¬ 
matted and line spaced as 
required during printing, with 
page throws generated when a 
page is filled. Formatting and 
page feed instructions are con¬ 
tained in control characters 
within the text (see editor 
functions above), and other 
information about the printout 
format is requested before the 
document is printed. The 
prompts given are as follows: 
Left and right margins: The 
normal printer width of 80 
characters is assumed, but by 
selecting margins, borders for 
binding the document, etc. can 
be set up, as well as moving the 
text column across the page as 
required. 

Page hold: This allows a pause 
for convenience, or to insert a 
new sheet of paper in a 
friction-feed printer after the 
printing of each page is com¬ 
pleted. Pressing SPACE will 
continue the print, and 
pressing F7 will terminate the 
print. 

Page numbers: Pages can be 
un-numbered, numbered at 
the top, or numbered at the 
bottom, and the type required 
is selected from the menu. If 
numbers are required, the 
number of the first page is 
requested, and this should be 
in the range 0-900. 

Page length: The number of 
lines per page will vary 
depending on the size of paper 
used. The number given is the 
full paper length, though a 
margin of five blank lines is left 
at the top and bottom of each 
page. If page numbering is 
selected, the numbers are 
printed in the middle of the 
required margin, and centra¬ 
lised with respect to the text. 
Number of copies: Up to nine 
copies of the document can be 
printed at one time, and the 
number required is requested. 
When all the prompts have 
been answered, the printer 
should be turned on and the 
paper set up correctly (the 
program prints a demon¬ 
stration sketch for a tractor- 
feed printer such as the 1525). 
Pressing SPACE will allow 
printing to commence. 
Holding down the SHIFT or 
SHIFT LOCK keys during 


4240 DATA 104,104,96,169,0, 
141,33,208,32,228 
4250 DATA 255,201,32,240,9, 
201,136,208,245,169 
4260 DATA 2,141,32,208,72, 
169,1,141,33,208 
4270 DATA 104,96,32,202,241, 
72,169,16,44,13 
4280 DATA 221,240,251,104, 
141,1,221,24,96 
4290 REM m END OF DATA ttt 


PROGRAM: WORDPROK* 

10 REM ttt WORDPROK-WORD PRO 
CESSOR ttt 

20 REM ttt BY IAIN MURRAY 
(0 1986 ttt 

30 REM ttt FOR "YOUR C0MM0D0 
RE“[SPC4]m 

35 REM ttt WORD PROCESSOR 

WITH[SPC5]m 

36 REM ttt SCREEN EDITOR, 

ANDCSPC63ttt 

37 REM »l* PRINTOUT TO COMMO 
D0RE[SPC3im 

38 REM ttt OR CENTRONICS PRI 
NTER[SPC3im 

40 POKE 53280,6:POKE 53281,1 
:REM t SCREEN COLOURS 
42 IF PEEK(49152)=169 THEN 70 
45 PRINT CHR*(142);"ECLEAR, 
BLACK,D0HN3,RIGHTIS,RVSON, 
SPC 3 WORDPROK E SPC,RVSOFF]" 
50 PRINT “ID0WN4,RIGHT6] 
LOADING MACHINE CODE SECT 
ION' 

55 PRINT H CD0WN3,RIGHT13, 
RVSON,SPCIPLEASECSPC2I 
WAITISPC,RVSOFF]" 

60 LOAD "PROKCODE",8,1 
70 POKE 56,78:REM * MEMORY 
TOP 

90 PRINT "[CLEAR]" 

100 SF=49152:CL=49470 
:REM t SCREEN FILL AND 
COLOUR FILL ROUTINES 
110 DE=49528:IN=49607 
: REM t DELETE AND INSERT 
ROUTINES 

120 WC=49688:CG=49773 

:REM * WORD COUNT AND CHA 
RACTER PROCESSING 

124 SV=50995:LD=51037 

:REM * SAVE AND LOAD 

125 FB=51110:FE=51152 

:REM t FIND BEGIN AND END 
MARKERS 


126 ZR=50656:REM I SEARCH/RE 
PLACE ROUTINE 

127 DR=51181:REM * DISK DIRE 
CTORY 

128 PO=51306:REM < PRINT ROU 
TINE 

130 SS=20000:CP=SS:TP=SS 
:VW=53230:DV=3 

140 POKE 53231,0:POKE 53248,6 
:POKE 53249,1:REM t SCRN 
& TEXT CLRS 

145 POKE VW,0:POKE 53217,1 
147 POKE 650,0:POKE 53229,255 
150 N0t=“1234567890123456789 
012345678901234567890" 

160 ET$="[CLEAR,DOWN,RIGHT13, 
RVSON,SE]DITORCSPC,SF] 
UNCTIONSCRVSOFF,DOWN] 
"+CHR$(13) 

170 X1$="[D0WN2,RI6HT2]1) 
[SPC,SIIMMEDIATECSPC.SC] 
QMMANDS"+CHR*(13) 

180 X2$="CRIBHT432)[SPC,SC] 
ONTROLtSPC,SC3HARACTERS 
CSPC, SM3ITHINCSPC, ST3 
EXT"+CHR$(13) 

190 X3$="C00UN2,RIGHT233) 
CSPC,SS3EARCH/CSR3EPLACE 
CSPC,SF3ACILITYCSPC,SC] 
0MMANDS"+CHR$(13) 

195 XX$="[DOWN,RIGHT6,SO] 
BTAIN THE FOLLOWING BY 
PRESSINGCSPC,RIGHT7, 
RVSON,SC,ST,SR,SL,RVSOFF, 
SPC]AND THE LETTER :" 

299 REM ttt TITLES ttt 

300 GOSUB 16500:PRINT CHR$(1 
4)CHR$(8)CHR$(144) 

310 SP*="[SPC353":SP$=SP$+SP$ 
390 FOR 1=19990 TO 19999 
:P0KE I,255:NEXT 
400 POKE 20000,102 
410 NR=SS:AD=53246 
:GOSUB 10000 
420 NR=CP:AD=53241 
:GOSUB 10000 
430 NR=TP:AD=53238 
:GOSUB 10000 

499 REM ttt MAIN MENU ttt 

500 PRINT "[CLEAR,DOWN, 
RI6HT14,RVSON,SPC2,SW,SO, 
SR,SD,SP,SR,SO,SK,SPC2, 
RVSOFF]":REM * "WORDPROK" 

505 PRINT "CD0WN,RIGHT14, 
RVSON,SPC,SM,SA,SI,SN,SPC] 
CSM,SE,SN,SU,SPC,RVSOFF]" 

:REM » "MAIN MENU" 

510 PRINT "CD0WN2,RIGHT11]1) 
CSPC,SE3DITCSPC,SD] 


OCUMENT* 

520 PRINT "[DOWN,RIGHT1132) 
CSPC,SSIAVECSPC,SD] 
OCUMENT" 

530 PRINT "[DOWN,RIGHT1133) 
CSPC,SL30ADCSPC,SD3 
OCUMENT' 

540 PRINT "EDQUN,RIGHT1134) 
CSPC,SP3RINTCSPC,SD] 
OCUMENT" 

550 PRINT a [DOWN,RIGHT1135) 
CSPC,SD3ISKCSPC,SF3ILE 
CSPC,SH3ANDLING" 

560 PRINT "[DOWN,RIGHT1136) 
[SPC,SW30RDCSPC,SC30UNT” 

570 PRINT "[DOWN,RIGHT1137) 
CSPC,SRJESTARTCSPC, SP3 
ROGRAM" 

580 PRINT 11 [DOWN, RIGHT1138) 
ESPC,SE3XITtSPC,SP3R0GRAN" 
590 PRINT *[DOWN,RIGHT5,SW3 
HICH DO YOU REQUIRE (1-8) 
7CSPC5,LEFT33"; 

600 6ET At:A=VAL(A$) 

:IF A<1 OR A>8 THEN 600 
610 ON A GOTO 1000,2000,3000, 
4000,5000,7000,8000,9000 

999 REM ttt EDIT DOCUMENT 
ttt 

1000 GOSUB 16500:SYS CL 

:POKE 204,0:REM t SCREEN 
COLOUR FILL 
1010 GOSUB 15000 
1070 SYS SF:REM t SCREEN FILL 
1080 SYS CG:REM t ENTER MACH 
INE CODE CHARACTER GET 
ROUTINE 

1086 POKE 204,1:REM t CRSR 
OFF 

1090 IF PEEK(532401=1 THEN G 
OSUB 16000:GOTO 500 
:REM t MENU REQUEST 
1100 IF PEEK(53240)=2 THEN G 
OSUB 16000:GOTO 12000 
: REM t HELP REQUEST 
1110 IF PEEK(53240)=4 THEN G 
OSUB 16000:GOTO 1500 
: REM t SEARCH/REPLACE REQ 
UEST 

1119 REM t EXIT CAUSED BY 
MEMORY FULL t 

1120 GOSUB 16000:PRINT " 
[CLEAR,D0WN2.RI6HT14, 
RVSON,SM,SE,SM,SO,SR,SY, 
SPC,SF,SU,SL23![RVSOFF]" 

1130 PRINT "CD0WN2,RIGHT6,SY3 
OU HAVE NOW FILLED THE 
MEMORY!" 

1140 GOSUB 13000:GOTO 500 
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1310 PRINT "[CLEAR,D0WN3, 
RIGHT10,SR3EACHED END OF 
TEXT" 

1499 REM tl* SEARCH/REPLACE 

m 

1500 PRINT “[CLEAR,D0WN3, 
RIGHT9,RVSON,SSIEARCH/CSR3 
EPLACECSPC,ST3EXTCRVSOFF3“ 

1510 PRINT "CDOMN2,RIGHT4,SY3 
OU CAN:" 

1520 PRINT *[DOWN,RIGHT631) 
[SPC,SS3EARCH FOR TEXT- 
1530 PRINT "COOWN,RIGHT632) 
[SPC, SS3EARCH FOR TEXT 
AND REPLACE" 

1540 PRINT "[DOWN,RIGHT633) 
[SPC,SR3ETURN TO EDITOR" 
1550 PRINT "CD0WN2,RIGHT4,SW3 
HICH DO YOU REQUIRE (1-3) 

? 

1560 SET A$:A=VAL(A$) 
sIF A<1 OR A>3 THEN 1560 
1565 PRINT At:IF A=3 THEN 10 
00 

1570 PRINT ”[D0WN2,RIGHT2,SG3 
IVE STRING TO BE SEARCHED 
FOR : ":INPUT "CRIGHT23"; 
SRt:SR=LEN(SR$) 

1580 IF SR<2 OR SR>40 THEN P 
RINT "[DOWN,RI6HT2,SI3 
NVALID STRING!":60T0 1570 
1590 FOR 1*1 TO SR 
:FC=ASC(MID$(SR$,I,1)> 

1594 IF FC>218 THEN 1597 

1595 IF FC>192 THEN FC=FC-128 
:GOTO 1597 

1596 IF FD63 THEN FC=FC-64 

1597 POKE 832+1,FC 

1598 NEXT I 

1600 POKE 832,SR:POKE 53232,0 
1610 IF A=1 THEN 1680 
1620 PRINT "[D0WN2,RIGHT2,SG3 
IVE STRING FOR REPLACEMEN 
T : ":INPUT *[RIGHT23";RP* 
:RP=LEN(RP$) 

1630 IF RP<2 OR RP>40 THEN P 
RINT "[DOWN,RIGHT2,SI 3 
NVALID STRINGf“:GOTO 1620 
1640 FOR 1=1 TO RP 
:FC=ASC(MID$(RP$,1,1)) 

1644 IF FC>218 THEN 1647 

1645 IF FC>192 THEN FC=FC-128 
:GOTO 1647 

1646 IF FC>63 THEN FC=FC-64 

1647 POKE 875+1,FC 

1648 NEXT I 

1650 POKE 875,RP:POKE 53232,1 
1660 POKE 874,0:IF SR>RP THE 
N POKE 874,1 


1670 IF SR=RP THEN POKE 874,2 
1680 PRINT "[CLEAR]" 

:PRINT "CDOWN2,RIGHT13,SR3 
EADY TO SEARCH" 

1690 GOSUB 13000:PRINT " 
[D0WN2,RI6HT14,RVSON,SPC, 

SS, SE,SA,SR,SC,SH,SI,SN, 

SG,SPC,RVSOFF3" 

1700 GOSUB 16500:GOSUB 15000 
:PRINT "[HOME,BLUE,RVSON, 
SPC6,RVSOFF,BLACK,SPC,SE, 

SD, SI,ST,SO,SR] [SS,SE,SA, 
SR,SC,SK]/[SR,SE,SP,SL,SA, 
SC,SE3 [SM,SO,SD,SE,SPC]' 

1705 PRINT "[HOME,DOWN243"; 

: IF A=2 THEN 1720 
1710 PRINT ‘[BLUE,RVSON,SPC5, 
RVSOFF,BLACK,SPC,SS,SP,SA, 
SC, SE, SPC, RVSON, BLUEMSN3 
EXTCSPC7,RVSOFF,BLACK,SR, 

SE, ST,SU,SR,SN,RVSON,BLUE] 
=[SE3DIT[SPC,BLACK,HOME]' 

:GOTO 1740 

1720 PRINT "[BLUE,RVSON,SPC2, 
RVSOFF,BLACK,SPC,SS,SP,SA, 
SC, SE, SPC, RVSON, BLUEMSN] 
EXTCSPC2,RVSOFF,BLACK,SR, 
RVSON,BLUE]=[SR]EPLACE 
[SPC2,RVSOFF,BLACK,SR,SE, 

ST, SU,SR,SN,RVSON,BLUE]* 

[SE 3 DIT E BLACK,HOME]* 

1740 SYS ZR:IF PEEK(53233)=0 
THEN 1000 

1750 GOSUB 16000:PRINT " 
[CLEAR,BLACK,D0WN3, 

RIGHT11, SR]EACHED END OF 
TEXT* 

1760 GOSUB 13000:GOTO 1000 

1999 REM »*» SAVE DOCUMENT 

m 

2000 PRINT "[CLEAR]"; 

CHRt(142);"[D0WN3,RIGHT13, 
RVSON]SAVE DOCUMENT 
[RVSOFF]" 

2010 PRINT "tDOWN2,RIGHT43DQ 
YOU NISH TO SAVE TEXT 
(Y/N) ?* 

2020 GET At:IF A$=“N" THEN 2 
150 

2030 IF A$<>"Y" THEN 2020 
2040 PRINT *EDOWN2,RIGHT43 
HAVE YOU SET THECSPC, 
RVSONIBIRVSOFFIEGINNING 
AND CSPC,RVSON]E[RVSOFF] 
ND* 

2050 PRINT "[RIGHT4IMARKERS 
FOR THE TEXT TO BE SAVED" 
2060 PRINT “[RIGHT4](Y/N) 


2070-GET A$:IF A$="N" THEN 2 
150 

2080 IF AtO"Y" THEN 2070 
2090 GOSUB 1B000:GOSUB 13090 
2100 PRINT ”CDOWN,RIGHT 16, 
RVSON,SPC3SAVINGCSPC, 
RVSOFF]" 

2110 SYS SV 

2120 IF PEEK(53222)=0 THEN 2 
.140 

2130 PRINT "CUP,RIGHT4] 
MARKERS NOT POSITIONED 
CORRECTLY":GOSUB 13100 
:GOTQ 2150 

2140 GOSUB 14000:GOSUB 13100 
2150 PRINT "[CLEAR]";CHR$(145 
:GOTO 500 

2999 REM lit LOAD DOCUMENT 

III 

3000 PRINT "[CLEAR]"; 

CHR$(142);*[DOWN3,RIGHT13, 
RVSON3LOAD DOCUMENT 
[RVSOFF3* 

3010 PRINT "CDQWN2,RI6HT43DO 
YOU NISH TO LOAD TEXT 
(Y/N) ?" 

3020 GET A*:IF A$="N" THEN 3 
070 

3030 IF A$<>"Y“ THEN 3020 

3040 PRINT *[D0NN2,RIGHT43 
HAVE YOU SET THE CURSOR 

TO THE " 

3041 PRINT "CRIGHT43START 
POSITION OF THE LOAD (Y/ 

N) ?" 

3042 GET A$:IF A$="N" THEN 3 
070 

3043 IF AtO'Y" THEN 3042 

3044 GOSUB 18000:GOSUB 13090 

3045 PRINT "CDOWN,RIGHT1S, 
RVSON,SPC3LOADINGCSPC, 
RVSOFF]" 

3050 SYS LD 

3060 GOSUB 14000:GOSUB 13100 
3070 PRINT ”[CLEAR]";CHR$(14) 
:GOTO 500 

3999 REM III PRINTOUT OF TEX 

T III 

4000 PRINT ”[CLEAR,DONN3, 
RIGHT13,RVSON,SP3RINTCSPC, 
S03UTCSPC,ST3EXTCRVSOFF]“ 

4010 PRINT "CD0WN2,RIGHT4,SDO 
0 YOU NISH TO PRINT TEXT 
([SY3/[SN]) ? "; 

4020 GET A*:IF A*="N" THEN 5 
00 

4025 IF A*<>"Y" THEN 4020 
4030 PRINT ‘tSY3* 

SPRINT "CDONN,RIGHT4,SH3 


printing will pause the 
printout. Pressing SPACE will 
restart printing, and pressing F7 
will terminate it. A message will 
appear when printing is 
complete and pressing SPACE 
will cause a return to the main 
menu. 

5. DISK FILE HANDLING 

This option allows you to 
perform some extra operations 
on the current disk. These are 
as follows: 

1. Disk Directory: A directory 
of the current disk is printed on 
the screen. Pressing SHIFT will 
pause the listing. The 
document in memory is not 
affected. 

2. File Rename: A disk file may 
be renamed. The current and 
new filenames are requested, 
and the renaming procedure is 
carried out. Filenames may be 
up to 16 characters long. 

3. File Delete: Adisk file may be 
scratched from the disk. The 
filename is requested, and the 
delete procedure is carried 
out. The filename may be up to 
16 characters long, and wild 
card filenames are acceptable. 

4. Exit: This causes a return to 
the main menu. 

6. WORD COUNT 

This allows the number of 
words in the current document 
to be counted. Words are 
counted from the first begin¬ 
ning marker (B) to the first end 
marker (E or X), and an exit 
option is given if these have not 
been set up. The number of 
words in this block is then dis¬ 
played, and pressing SPACE 
will cause a return to the main 
menu. 

7. RESTART 

This option causes a restart, and 
the document currently in 
memory is lost. A return is 
made to the main menu. 

8. EXIT 

This option causes exit from the 
program, and returns to Basic 
control. 


Limitations of the 
Program 

a) Editor: The word split/ 
unsplit option works by forcing 
a line feed if a space is 
encountered in the last 10 
columns of the screen width. 
Thus if a long word occurs at 
the end of a line, it may be split 
between lines. 

b) Device availability trapping: 
If the load, save, disk directory 
or printout routines are 







fiVE YOU SET THEESPC,RVSON, 
SB,RVSOFF3EGINNING AND 
[SPC,RVSON,SE,RVSOFF3ND" 

4031 PRINT "CRIGHT43MARKERS 
FOR THE TEXT TO BE PRINT 

ED" 

4032 PRINT 11 CRIGHT43 (CSY3/ 
ISN3) ? 

4033 GET A$:IF A$="N" THEN 5 
00 

4034 IF AIO"Y" THEN 4033 

4035 PRINT "CSY,CLEAR]" 

4040 PRINT "ED0WN2,RIGHT4,SG3 
IVE WIDTH OF LEFT HAND 
MARGIN" 

4045 INPUT ‘[RIGHT4](1-30) 

: “;LM$:LN=VAL(LM$) 

4050 IF LM<1 OR LM>30 OR LM< 
>INT(LM) THEN PRINT " 

[DOWN,RIGHT 4,SIINVALID 
CSPC,SN3UMBER!":60T0 4040 
4052 POKE 53201,LN 
4055 PRINT "ED0WN2,RIGHT4,SG3 
IVE WIDTH OF RIGHT HAND 
MARGIN" 

4060 INPUT “IRIGHT4](1-30) 

: ";RM»:RM=VAL(RM») 

4065 IF RM<1 OR RM>30 OR RM< 
>INT(RM) THEN PRINT “ 
[DOWN,RIGHT4,SI INVALID 
CSPC, SN3UMBER!":GOTO 4055 
4067 POKE 53202,80-LM-RM 
4070 TL=80-LM-RM 

4080 PRINT "tDOWN2,RIGHT4,SD3 
0 YOU REQUIRE A HOLD AFTE 
R EACH* 

4081 PRINT "CRIGHT43PRINTED 
PAGE (CSY3/CSN3) ? 

4082 POKE 53205,0:GET A$ 

:IF A$="Y" THEN POKE 5320 
5,1:PRINT "CSY3":GOTO 4085 

4083 IF AIO"N" THEN 4082 

4084 PRINT "CSN]“ 

4085 PRINT •[CLEAR,D0WN3, 
RIGHT4,SP3AGE NUMBERING 

TYPES AVAILABLE :" 

4086 PRINT “CD0WN2,RIGHT431) 
[SPC,SN3Q PAGE NUMBERS" 

4087 PRINT ”[DOWN,RIGHT432) 
CSPC,SP3AGE NUMBERS AT 

TOP OF PAGE" 

4088 PRINT "CDOWN,RIGHT433) 
CSPC,SP3AGE NUMBERS AT 

FOOT OF PAGE" 

4089 PRINT "CD0WN2,RIGHT4,SW3 
HICH DO YOU REQUIRE (1-3) 

? "i 

4090 GET AI:A=VAL(AI) 


:IF A<1 OR A>3 THEN 4090 
4091 PRINT A*:POKE 53215,A-l 
: IF A=1 THEN 4150 
4100 PRINT "CDGWN2,RIGHT4,SG3 
IVE NUMBER OF FIRST PAGE" 

4105 INPUT "[RIGHT43(1-900) 
“;PC$:PC=VAL(PC$) 

4106 IF PC=0 OR PC>900 OR PC 
OINT(PC) THEN 4100 

4107 IF PC<100 THEN PC$="0"+ 
PCI:IF PC<10 THEN PC$="0" 
+PCI 

4108 FOR 1=1 TO 3 

:IF MID$(PC*,I, 

1)<"0" OR MIDt(PC$,I, 
1)>"9“ THEN 4115 

4109 NEXT 

4110 IF PO0 AND PC<901 THEN 
4120 

4115 PRINT "CDOUN,RIGHT4,SI 3 
NVALIDCSPC,SN3UMBER!!“ 

:GOTO 4100 
4120 FOR 1=1 TO 3 
4130 POKE 53207+1. 

ASC(MID*(PC$,4-I,1)):NEXT 
4140 POKE 53216, INK (80-LH-R 
MJ/21+LM-2 

4150 PRINT “[CLEAR,DOWN3, 
RIGHT4,SH30W MANY LINES 
PER PAGE* 

4155 PRINT "[RIGHT43 
(NORMALLY 65) "; 

4160 INPUT A$:A=VAL(A$) 

: IF A< 15 OR A>100 OR AOI 
NT(A) THEN 4150 
4165 POKE 53204,A-9 
4170 PRINT "CDQWN2,RIGHT4,SH3 
OW MANY COPIES DO YOU REQ 
UIRECSPC103(1-9) ? 

4180 GET At:CI=VAL(A$) 

:IF CKl THEN 4180 
4182 PRINT A$ 

4185 POKE 53206,Cl 

:POKE 53190,0:POKE 53196,0 

4190 PRINT "[CLEAR,D0WN3, 
RIGHT4,SY30U CAN PRINT 

TO" 

4191 PRINT "[DOWN,RIGHT431) 
[SPC,SC30MMODORE PRINTER 

(CSD3EVICE 4)" 

4192 PRINT ”CDOWN,RIGHT432) 
[SPC,SC3ENTRQNICS PRINTER" 

4193 PRINT "[DGWN3,RIGHT4,SW3 
HICH DO YOU REQUIRE (1/2) 

? 

4194 GET At:IF AI<>"1" AND A 
$<>"2" THEN 4194 

4195 POKE 53188,VAL(A$)-1 


:PRINT A$ 

4200 PRINT "[CLEAR,D0WN2, 
RIGHT4,SE3NSURE PRINTER 
IS SWITCHED ON" 

4210 PRINT H [DOWN,RIGHT43AND 

POSITION PAPER AT FOLD 
« * 

4215 IF At="2” THEN PRINT 
:GOTO 4260 

4220 PRINT "CDOMN,RIGHT4,CB, 
RVSON3OCSPC303O” 

4230 PRINT "[RIGHT4,RVSON] 


4240 PRINT "CRIGHT4,RVS0N30 
[BLACK,SPC,C4,SPC,BLACK, 
SPC,C8,SPC2730" 

4250 PRINT "[RIGHT4,RVSON,C4, 
C+,BLACK,SPC,C4,SPC,BLACK, 
SPC,C4,C+28,BLACK]* 

4260 PRINT "[DOWN,RIGHT2,SP] 
RESSCSPC,RVSON,SPC, SS, SP, 
SA,SC,SE] [RVSOFF,SPCITO 
COMMENCE PRINTING 
:GOSUB 13020 

4270 PRINT "[CLEAR,BLACK, 
D0WN5,RIGHT3,SP3RESS[SPC, 
RVSON,SS,SH,SI,SF,ST, 
RVSOFF,SPCITO INTERRUPT 
PRINTING” 

4275 PRINT "[WHITE,RIGHT11, 
RVSON,SPC,SP,SR,SI,SN,ST, 
SI,SN,S6] CSP,SA,SU,SS,SE, 
SD, SPC,RVSOFF]" 

4280 PRINT "[BLACK,D0WN2, 
RIGHT15, RVSON,SPC,SP,SR, 

SI, SN,ST,SI,SN,S6,SPC, 
RVSOFF]" 

4285 PRINT "[WHITE,SPC5.SP] 
RESSCSPC,RVSON,SPC, SS, SP, 
SA,SC,SE,SPC,RVSOFF,SPC7, 
SP3RESSCSPC,RVSON,SPC3F7 
[SPC,RVSOFF]" 

4287 PRINT "[SPC6] 

TO CONTINUE[SPC8] 

TO ABANDONCBLACK]* 

4290 SYS PO 
4292 POKE 53280,6 
4295 IF PEEK(53189)<>5 THEN 
4300 

4297 PRINT ”[CLEAR,D0WN4, 
RIGHT9,SP3RINTER NOT AVAI 
LABLEICDOWN33":GOSUB 13000 
:GOTO 500 

4300 IF PEEK(53222)=0 THEN 4 
400 

4310 PRINT “[CLEAR,D0WN4, 

RIGHT4,SM]ARKERS NOT POSI 


TIONED CORRECTLY!ED0WN3]” 
4320 GOSUB 13000:GOTO 500 
4400 PRINT “[CLEAR,D0WN4, 
RIGHT10,RVSON,SPC,SP,SR, 

SI,SN,ST,SI,SN,SG,SPC,SC, 
SO,SM,SP,SL,SE,ST,SE,SD, 
SPC,RVSOFF,D0WN3I" 

4410 GOSUB 13000:GOTO 500 

4999 REM II* DISK HANDLING 
ROUTINES III 

5000 PRINT "[CLEAR,DOWN3, 
RIGHT10,RVSON,SD3ISKCSPC, 
SF]ILECSPC,SHJANDLING 
[RVSOFF)" 

5050 PRINT "CDQWN2,RIGHT4]1) 
[SPC,SD]ISKCSPC,SD3 
IRECTORY" 

5060 PRINT ”[D0WN,RIGHT4)2) 
CSPC,SR3ENANE ACSPC.SF3 
ILE" 

5070 PRINT "[DOWN,RIGHT4I3) 
CSPC,SD3ELETE ACSPC,SF3 
ILE" 

5090 PRINT "CDOWN,RIGHT434) 
[SPC,SR3ETURN TOCSPC,SN) 
AINCSPC,SM3ENU" 

5100 PRINT ”CD0WN2,RIGHT4, SW3 
HICH DO YOU REQUIRE (1-4) 
?’ 

5110 GET At:A=VAL(A$) 

:IF A<1 OR A>4 THEN 5110 
5120 ON A GOTO 5200,5500, 
5700,500 

5199 REM II DISK DIRECTORY 

It 

5200 PRINT "[CLEAR]"; 
CHRK142)SPRINT "CD0WN2, 
SPC43PRESSCSPC,RVSON] 
SHIFTCRVSOFF,SPC3TO PAUSE 

DIRECTORYEDOWN23" 

5210 SYS DR 
5220 GOSUB 13100 
5230 PRINT *[CLEAR]”;CHR$(14) 
:60T0 500 

5499 REM It RENAME A FILE 

II 

5500 PRINT "[CLEAR]"; 
CHRK142) 

5510 PRINT ”CD0WN2,RIGHT43 
GIVE PRESENT FILENAME :" 
5520 PRINT ”[DOWN,RIGHT63 
1234567890123456" 

5530 INPUT "[RIGHT4]";Nl$ 
:N1=LEN(N1$) 

5540 IF Nl<2 OR Nl>16 THEN P 
RINT "[DOWN,RIGHT43 
INVALID FILENAME!!" 

:GOTO 5510 

► 
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5550 PRINT M ID0WN2,RIGHT43 

7020 PRINT "CRIGHT33MARKERS 1 

1 e 

10500 NR=PEEK(AD) + (256tPEEK C d 

GIVE NEW FILENAHE 

FOR THE TEXT TO BE COUNT 

AD+1 ) ):RETURN n 

5560 PRINT "[DOWN,RIGHT63 

ED" 1 

11999 REM ttt HELP FACILITY P 

1234567890123456" 

7030 PRINT "CRIGHT3]tESY]/ 

« d 

5570 INPUT "CRIGHT4]";N2t 

[SND ?" 

12000 PRINT ETt; X It t , 

:N2=LEN(N2t) 

7040 GET A$:IF At="N" THEN 1 

12009 PRINT "[DOWN,RIGHTS, a 

5580 IF N2<2 OR N2>16 THEN P 

000 

RVSON,SC,ST,SR,SL,RVSOFF, t 

RINT "[DOWN,RIGHT43 

7050 IF A$<>"Y” THEN 7040 

SPC,LEFT-ARROW,SPC2,SR] e 

INVALID FILENAME!!" 

7110 PRINT "[DOWNS,SPC3,ST] 

ETURN TOCSPC,SM3ENU" 

:GOTO 5550 

HIS TEXT CONTAINS"; 

12010 PRINT " [DOWN,RIGHTS, f 

5590 PRINT " ED0UN2,RIGHT15, 

7120 SYS WC:REM t DO WORD 

RVSON,SC,ST,SR,SL,RVSOFF, c 

RVSON , SPC ] RENAMING [ SPC, 

COUNT 

SPC,UP-ARROW,SPC2,SP]RINT t 

RVS0FF3" 

7130 PRINT PEEK(53236)+(2561 

CSPC,SE3DIT0RCSPC,SC] r 

5595 FMt=Nlt 

PEEK(532371);"WORDS." 

OMMANDS" l 

5600 OPEN 15,8,15,"R 

7140 PRINT " C00WN3 , SPC3 , SP ] 

12011 PRINT "[DOWN,RIGHTS, ( 

: "+N2t+"="+Nlt:CL0SE 15 

RESSCSPC,RVSON,SPC,SS,SP, 

RVSON,SC,ST,SR,SL,RVSOFF, i 

5610 OPEN 15,8,15 

SA,SC,SE] [RVSOFF,SPC3T0 

SPC] £ CSPC2,SE3NTERESPC, SS3 s 

: INPUT#15,ER,ER$:CLQSE 15 

CONTINUE 

EARCH/CSR3EPLACECSPC,SM] ( 

5620 IF ER>19 THEN PRINT " 

7150 GET At:IF A$<>“ " THEN 

ODE" | 

[CLEAR,D0WN3.RIGHT73FILE 

7150 

12013 PRINT " CDOWN,RIGHTS, 

ERROR!" : GOSUB 14040 

7160 GOTO 500 

RVSON,SC,ST,SR,SL,RVSOFF, i 

5630 GOSUB 13100:PRINT " 

7999 REM ttt RESTART PROGRAM 

SPC3=CSPC2,SK3EYCSPC,SR] 

[CLEAR]";CHRt(14):GOTO 500 

ttt 

EPEAT[SPC,S03N/C SG3FF" 

5699 REM tt DELETE FILE tt 

8000 PRINT "[CLEAR,D0WN2, 

12014 GOSUB 13000 ! 

5700 PRINT "[CLEAR]*; 

RIGHT16,RVSON,SR,SE,SS,ST, 

12015 PRINT ETt;XIt 

CHR$(142) 

SA,SR,ST,RVSOFF]" 

12016 PRINT "[DOWN,RIGHT, 

5710 PRINT " CD0WN2,RIGHT4] 

8010 PRINT " [ D0WN3,RIGHT5,SD] 

RVSON,SC,SR,SS,SR,RVSOFF] 

GIVE NAME OF FILE TO BE 

0 YOU WISH TO RESTART ( 

[SR]IGHTCSPC2,SM30VECSPC, 

DELETED :" 

[SYI/CSN3) ?" 

SC3URS0RCSPC,SF30RWARD 

5720 PRINT "[D0WN,RIGHT63 

8020 GET At:IF At="N" THEN 5 

[SPC,SO]NCE M 

1234567890123456" 

00 

12017 PRINT "[DOWN,RIGHT, 

5730 INPUT " [RIGHT4] *; N1 $ 

8030 IF AtO"Y" THEN 8020 

RVSON,SC,SR,SS,SR,RVSOFF] 

:N1=LEN(N1$) 

8040 GOTO 100 

CSL3EFTCSPC3,SM30VEESPC, 

5740 IF Nl<2 OR N1M6 THEN P 

8999 REM tt* EXIT PROGRAM 

SC3URS0RCSPC, SB] ACKCSPC, 

RINT " EDQNN,RIGHT4] 

ttt 

S03NCE' 

INVALID FILENAME!!" 

9000 PRINT " [CLEAR,D0WN2, 

12018 PRINT "[DOWN,RIGHT, 

: GOTO 5710 

RIGHT 18,RVSON,SE,SX,SI,ST, 

RVSON,SC,SR,SS,SR,RVSOFF] 

5750 PRINT " ED0WN2,RIGHT15, 

RVSOFF]" 

CSU3PCSPC5,SM3QVECSPC, SC3 

RVSON,SPCIDELETINGISPC, 

9010 PRINT " [DQNN3,RIGHTS,SD] 

URS0R[SPC,SB3ACK 40" 

RVS0FF3" 

0 YOU WISH TO EXIT <[SY]/ 

12019 PRINT "[DOWN,RIGHT, 

5760 OPEN 15,8,15,"S:"+Nlt 

[SN]) ?' 

RVSON,SC,SR,SS,SR,RVSOFF] 

: CLOSE 15 

9020 GET At:IF At="N" THEN 5 

[SD30WNCSPC3,SM30VEESPC, 

5770 OPEN 15,8,15 

00 

SC3URS0R[S P C,SF3QRWARD 

: INP'JT#15, ER, ERS: CLOSE 15 

9030 IF AtO"Y" THEN 9020 

40” 

5780 IF ER>19 THEN PRINT " 

9040 PRINT CHRt ( 147)CHRt(9)C 

12020 GOSUB 13000 

[DOWN,RIGHT103FILE ERROR!" 

HRt(142) “ [DOWN20,SPC2, 

12021 PRINT ETt; XU 

: GOSUB 14040 

LEFT3]"; 

12022 PRINT "CDOWN, RIGHT5, 

5790 GOSUB 13100:PRINT " 

9050 POKE 631,32:POKE 632,20 

RVSON,SC,SL,SR,RVSOFF, 

[CLEAR3”;CHR$(14):GOTO 500 

! : POKE 198,2 

SPC3,SS3PLIT/ESU3NSPLIT 

5920 GOSUB 13000:GOTO 500 

9060 END 

CSPC,SW30RDS” 

6999 REM ttt WORD COUNT ttt 

9999 REM ttt SET UP DOUBLE 

12023 PRINT " [DOWN,RIGHTS, 

7000 PRINT " [CLEAR,D0WN2, 

BYTE IN MEMORY ttt 

RVSON,SH,SO,SM,SE,RVSOFF, 

RIGHT14,RVS0N,SW,SQ,SR,SD: 

1 10000 HB=INT(NR/256) 

SPC2,SM30VEESPC,SC3URS0R 

ESC,SO,SU,SN,ST,RVSOFF ] 

: LB=NR-(HB*256) 

TO TOP OF SCREEN" 

7010 PRINT "[D0WN2,RIGHT3,SH 

I 10010 POKE AD,LB:POKE AD+l.HB 

12030 GOSUB 13000 

AVE YOU SET THECSPC,RVSQN 

, : RETURN 

12032 PRINT ETt;Xlt 

SB,RVSOFF]EGINNING AND 

10499 REM ttt GET NUMBER FRO 

12035 PRINT " CDOWN,RIGHT6, 

CSPC,RVSON,SE,RVSOFF]ND" 

M TWO BYTES ttt 

RVSON,SPC3F1[SPC,RVSOFF, 

► I 


appear 


and 


is no space between them and a 


number of actual words. 

e) STOP and RESTORE: Whilst 
in the editor, the STOP key is 
disabled, but holding down 
STOP and pressing RESTORE 
will reset the computer as 
usual. Re-entry is not possible. 
But with the editor, STOP and 
RESTORE behave as usual. 

f) Memory usage: The Basic 
program is about 10K long, and 
resets the top of Basic memory 
to 19968 ($4E00). The text is 
stored from 120000 ($4E20) up 
to a maximum of 40959 ($9FFF). 
The machine code is situated in 
the 4K RAM space starting at 
49152 ($C000) and is just over 
3K in length. The remaining IK 
is used for data storage by the 
machine code routines. 

Notes on Typing the 
Programs 

Typing in the program should 
pose few difficulties, though 
care should be taken with the 
data, and some of the print 
statements. A checksum is 
included in the data loader, 
and this will detect most errors 
in the data. If an error occurs, 
check variables A and C to 
assist in debugging the data. 
While typing the data, a 
running check of line length 
comparisons should be made 
e.g. if line 1300 is two characters 
longer than line 1290 in the 
















SPC3,ST,SA,SB,SPC]([SP] 
RINT FIVE SPACES) 

12040 PRINT "[DOWN,RIGHT6, 
RVSON,SPC3F3CSPC,RVSOFF, 
SPC3,SDIELETE WORD BEFORE 

CURSOR" 

12045 PRINT "[DOWN,RIGHTS, 
RVSON,SPC3F5ISPC,RVSOFF, 
SPC3,SC3URSOR BACK TO LAS 
T SPACE" 

12050 PRINT "COOWN,RIGHT6, 
RVSON,SPC3F7ISPC,RVSOFF, 
SPC3,SCIURS0R FORWARD TO 

NEXT" 

12051 PRINT "CRIGHT6,SPC73 
SPACE" 

12055 GOSUB 13000 
12060 PRINT ET$:X1$ 

12062 PRINT "[DOWN,RIGHT6, 
RVSON,SPC3F2CSPC, RVSOFF, 
SPC3,SM30VE CURSOR UP ONE 

PAGE" 

12063 PRINT "ID0WN,RIGHT6, 
RVSON,SPC3F4CSPC, RVSOFF, 
SPC3,SDIELETE 40 CHARS 

BEFORE[SPC18 3 CURSOR" 

12064 PRINT "[DOWN,RIGHT6, 
RVSON,SPC3F6CSPC,RVSOFF, 
SPC3,SI3NSERT 40 SPACES 

AT CURSOR" 

12065 PRINT "[DOWN,RIGHT6, 
RVSON,SPC3F8CSPC,RVSOFF, 
SPC3,SMJOVE CURSOR DOWN 

ONE PAGE" 

12067 GOSUB 13000 

12068 PRINT ET$;X1$ 

12070 PRINT "ID0WN,RIGHT2, 

RVSON,SC,SB,SH, RVSOFF,SPC, 
RVSON,SPC3F1ISPC,RVSOFF, ' 
SPC2,SC3HANGE BACKGROUND 
COLOUR’ 

12072 PRINT "EDOWN, RIGHT2, 
RVSON, SC, SB, SH, RVSOFF,SPC, 
RVSON, SPC3F3ESPC,RVSOFF, 
SPC2,SC3HANGE BORDER COLO 
UR" 

12074 PRINT "[DOWN,RIGHT2, 
RVSON,SC,SB,SH,RVSOFF,SPC, 
RVSON,SPC3F5CSPC, RVSOFF, 
SPC2,SC3HANGE TEXT COLOUR" 
12080 GOSUB 13000 
12092 PRINT ET$;X2$;XX$ 

12100 PRINT "EDOHN,RIGHT8, 
RVSON,LEFT-ARROW,RVSOFF, 
SPC2,SR,SE,ST,SU,SR,SN, 

SPC,SC3HARACTER” 

12110 PRINT "CODMN,RIGHT8, 
RVSON,SP,RVSOFF,SPC2,SF] 
ORCECSPC,SNIEWISPC,SP3AGE" 


12120 PRINT ’[DOWN,RIGHTS, 
RVSON,SD,RVSOFF,SPC2,SD3 
OUBLEESPC,SL3INEtSPC,SS3 
PACING" 

12130 PRINT H COOWN,RIGHTS, 
RVSON,SS,RVSOFF,SPC2,SS3 
INGLECSPC,SL3INECSPC,SS3 
PACING" 

12160 GOSUB 13000 
12170 PRINT ETt;X2$;XX$ 

12180 PRINT "[DOWN,RIGHTS, 
RVSON,SR,RVSOFF,SPC2, SR] 
IGHTCSPC,SJ3USTIFYISPC,ST3 
EXT" 

12190 PRINT "[DOWN,RIGHTS, 
RVSON,SL,RVSOFF,SPC2.SL] 
EFTCSPC,SJ3USTIFYCSPC,ST3 
EXT" 

12200 PRINT "[DOWN,RIGHTS, 
RVSON,SJ,RVSOFF,SPC2,SR] 
IGHT &CSPC,SL3EFTCSPC,SJ3 
USTIFVCSPC,ST3EXT" 

12210 PRINT "[DOWN,RIGHTS, 
RVSON,SC,RVSOFF,SPC2,SC3 
ENTRALISECSPC,ST3EXT ON 
C SPC,SL31NE“ 

12234 GOSUB 13000 
12236 PRINT ET$;X2$;XX$ 

12260 PRINT "[DOWN,RIGHT8, 
RVSON,SB,RVSOFF,SPC2,SB3 
EGINNING OFtSPC,SB3LOCK 
CSPC,SM3ARKER" 

12270 PRINT "[DOWN,RIGHTS, 
RVSON,SE,RVSOFF,SPC2,SE3 
ND OFCSPC,SB3LDCKCSPC,SM] 
ARKER’ 

12275 GOSUB 13000 
12280 PRINT ET$jX3$ 

12290 PRINT "[DOWN,RIGHT6, 
RVSON,SC,ST,SR,SL,RVSOFF, 
SPC3£ : :CSPC2, SE3NTERCSPC, SS3 
EARCH/tSR3EPLACE[SPC,SM] 
ODE" 

12300 PRINT "CD0WN2,RIGHTS, 
SW3HENCSPC,SS3EARCHCSPC, 

SS3TRING ISCSPC,SF30UND 
« <* 

12310 PRINT “[DOWN,RIGHT11, 

SR,SPC2,SR3EPLACECSPC,SS3 
EARCHCSPC,SS3TRING" 

12320 PRINT "[DOWN,RIGHTS, 
RVSON,SPC,SS,SP,SA,SC,SE, 
SPC,RVSOFF,SPC2,SF3IND 
CSPC,SN3EXTCSPC,SO] 
CCURRENCE OF" 

12325 PRINT "[RIGHT14,SS3 
EARCHCSPC,SS3TRING" 

12330 PRINT u [DOWN,RIGHT6, 
RVSON,SR,SE,ST,SU,SR,SN, 


RVSOFF,SPC2,SL3EAVECSPC, 
SS3EARCH/CSR3EPLACECSPC, 
SM30DE” 

12335 PRINT "[RIGHT14]AND 
CSPC,SR3ETURN TOCSPC.SE] 
DITOR* 

12450 GOSUB 13000:GOTO 1000 

12999 REM ttt WAIT FOR SPACE 
PRESS ttt 

13000 PRINT "[DOWN,RIGHT7,SP] 
RESSCSPC,RVSON,SPC,SS.SP, 
SA,SC,SE] [RVSOFF,SPC3TO 

CONTINUE :" 

13020 GET A$:IF A$<>" " THEN 
13020 

13030 RETURN 

13090 PRINT " [DOWN, RIGHT123 
PREPARE DISK AND" 

13100 PRINT "[DOWN,RIGHT7] 
PRESSCSPC,RVSON,SPC] 

SPACE [RVSOFF,SPC] 

TO CONTINUE 
13120 GOTO 13020 

13999 REM ttt GET DISK STATU 
S tit 

14000 IF STO0 AND ST<>64 TH 
EN 14010 

14005 PRINT "CUP,RIGHT9, 
RVSON3FILE TRANSFER COMPL 
ETEDCRVSOFF3 0 :GOTO 14050 
14010 PRINT ■[CLEAR,D0WN3, 
RIGHT73FILE TRANSFER ERRO 
R!!" 

14020 IF STO-128 THEN 14030 

14025 PRINT"[CLEAR,DOWN3, 
RIGHT73DISK DRIVE NOT AVA 
ILABLE OR" 

14026 PRINT"[RIGHT7] 

FILE EXISTS![DOWN23" 

14028 GOTO 14050 
14030 OPEN 16,8,15 

:INPUT#16,ER,ER$:CLOSE 16 
14035 IF ER<20 THEN 14050 
14040 PRINT "[DOWN,RIGHT7] 
ERROR t’;ER 

14045 PRINT "[DOWN,RIGHT7]("; 
ER$;’)’ 

14048 PRINT "[DOWN,RIGHT7] 
FILENAME : ";FM» 

14050 RETURN 

14499 REM ttt GET N CHARS 
FROM DISK BUFFER ttt 

14500 Z$="":FOR 1=1 TO N 
: GOSUB 14520 

14510 Z$=ZS+A$:NEXT:RETURN 
14520 GET#3,A$:IF A$="" THEN 
A$=CHR$!0) 

14530 A=ASC(A$):BP=BP+1 
:RETURN 


14999 REM ttt PRINT EDITOR 
HEADER/FOOTER ttt 

15000 PRINT "[CLEAR,RVSON, 
BLUE,SPC12,RVSOFF,BLACK, 
SPC,SW,SO,SR,SD,SP,SR,SO, 
SK,SPC,SE,SD,SI,ST,SO,SR, 
SPC,RVSON,BLUE,SPC11]";N0$ 

15010 PRINT "[BLUE,DOWN20, 
RVSON,BLUE]";NO$; 

15020 PRINT "[RVSON,SPC4, 
RVSOFF,BLACK,SC,ST,SR'SL, 
RVSON,BLUE,SPC,RVSOFF, 
BLACK,UP-ARROW,RVSON,BLUE, 
SPC]FORCSPC,SH,SE,SL,SP, 
SPC2,RVSOFF,BLACK,SC,ST, 
SR,SL,RVSON,BLUE,SPC, 
BLACK,RVSOFF,LEFT-ARROW, 
RVSON,BLUE,SPC]FOR[SPC,SM, 
SE,SN,SU,SPC3,HOME,D0WN2, 
BLACK,RVSOFF]"; 

15030 POKE 2023,160 

:POKE 56295,6:POKE 1944, 
177:POKE 56216,6 
:REM t LAST SQUARE 
15040 RETURN 

15999 REM ttt SAVE CURRENT 
EDITOR COLOURS ttt 

16000 POKE 53248,PEEK153280) 

:POKE 53249,PEEK(53281) 

16010 POKE 53280,6 

:POKE 53281,1:PRINT CHR$( 
144):RETURN 

16499 REM ttt RETURN PREVIOU 
S COLOURS ttt 

16500 POKE 53280,PEEK(53248) 

:POKE 53281,PEEK(53249) 

:RETURN 

17999 REM ttt GET AND STORE 
FILENAME ttt 

18000 PRINT “[D0WN2,RIGHT23] 
123456789012" 

18010 INPUT "[RIGHT53GIVE 
FILENAME : ";FM* 

18020 IF LEN(FM$)<1 OR LEN(F 
M$)>12 THEN 18000 
18030 FM*=FM$+".TXT" 

18040 POKE 832,LEN(FM$) 

18050 FOR 1=1 TO LEN(FMI) 
:FC$=MID$(FM$,I,1) 
:FC=ASC(FC$) 

18060 IF FC$="t" OR FC$="?" 

OR (FC$=\" AND IOLENfFM 
$)-3) THEN 18090 
18070 POKE 832+1,FC:NEXT 
18080 RETURN 

18090 PRINT *[DOWN,RIGHT5] 
INVALID FILENAME!!" 

:GOTO 18000 
>-128 THEN 14030 
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listing, it should also be two 
characters longer in the version 
typed on your screen. 

In the main word processor 
program itself, particular care 
should be taken when typing 
the following lines (refer to the 
table of Commodore control 
characters elsewhere in this 
issue): 

15000-15030 - this prints the 
header/footer for the editor 
and must be exactly the right 
length. 

1700-1720 - this prints the 
header/footer for the search & 


replace facility, and again must 
be the correct length. 
4220-4250 - this is a sketch of 
the paper fold position for 
printing out on a 1525 dot 
matrix printer. 

4270-4287 - on-screen printing 
instructions. Note that some of 
the text is in black, and some in 
white. During printing, the 
screen is white, and so only the 
black text is visible. When 
printing is paused, the screen 
becomes black, hence making 
the white text visible. 


14025 PRINT"[CLEAR,DDWN3, 
RI6HT73DISK DRIVE NOT AVA 
ILABLE OR" 

14026 PRINT"ERIGHT70 
FILE EXISTS)CD0WN2]" 

14028 SOTO 14050 

14030 OPEN 16,8,15 

:INPUT#16,ER,ER$:CLOSE 16 

14035 IF ER<20 THEN 14050 

14040 PRINT "[DOWN,RIGHT7I 
ERROR *";ER 

14045 PRINT "[DOWN,RIGHT7]("; 
ER$;*)' 

14048 PRINT "[DOWN,RIGHT73 
FILENAME : ";FM$ 

14050 RETURN 

14499 REM ttt GET N CHARS 
FROM DISK BUFFER <** 

14500 Z$="”:F0R 1=1 TO N 
:GOSUB 14520 

14510 Z$=2t+A»:NEXT:RETURN 

14520 GET*3,A$:IF A$=" THEN 
AJ=CHR$(0) 

14530 A=ASC(A$):BP=BP+1 
:RETURN 

14999 REM m PRINT EDITOR 
HEADER/FOOTER ttt 

15000 PRINT "[CLEAR,RVSON, 
BLUE,SPC12,RVS0FF,BLACK, 
SPC,SW,SO,SR,SD,SP,SR,SO, 
SK,SPC,SE,SD,SI,ST,SO,SR, 
SPC,RVSON,BLUE,SPC113 *;N0$ 

15010 PRINT "[BLUE,DOWN20, 
RVSON,BLUE]“;N0$; 

15020 PRINT "[RVSON,SPC4, 
RVSOFF,BLACK,SC,ST,SR,SL, 
RVSON,BLUE,SPC,RVSOFF, 
BLACK,UP-ARROW,RVSON,BLUE, 
SPC3F0R[SPC,SH,SE,SL,SP, 
SPC2,RVSOFF,BLACK,SC,ST, 
SR, SL, RVSON, BLUE, SPC ; , 


BLACK,RVSOFF,LEFT-ARROW, 
RVSON,BLUE,SPCIFOR[SPC,SM, 
SE,SN,SU,SPC3,HOME,D0WN2, 
BLACK,RVSOFF)"; 

15030 POKE 2023,160 

:POKE 56295,6:P0KE 1944, 
177:POKE 56216,6 
:REM t LAST SQUARE 
15040 RETURN 

15999 REM ttt SAVE CURRENT 
EDITOR COLOURS ttt 

16000 POKE 53248,PEEK(53280) 

:POKE 53249,PEEK(53281) 

16010 POKE 53280,6 

:POKE 53281,1:PRINT CHR$! 
144):RETURN 

16499 REM ttt RETURN PREVIOU 
S COLOURS ttt 

16500 POKE 53280,PEEK!53248) 

:POKE 53281,PEEK(53249) 

:RETURN 

17999 REM ttt GET AND STORE 
FILENAME 1*1 

18000 PRINT "[D0WN2,RIGHT230 
123456789012" 

18010 INPUT "[RIGHTS3GIVE 
FILENAME : ”;FM$ 

18020 IF LEN(FM$)<1 OR LEN(F 
M$)>12 THEN 18000 
18030 FMt=FM$+".TXT" 

18040 POKE 832,LEN CFM$) 

18050 FOR 1=1 TO LEN(FM$) 
:FC$=MID$(FMt,I,1) 
:FC=ASC(FC») 

18060 IF FC$="I" OR FC$="?“ 
OR (FC$="." AND IOLENiFM 
$5-3) THEN 18090 
18070 POKE 832+1,FC:NEXT 
18080 RETURN 

18090 PRINT "[DOWN,RIGHTS) 
INVALID FILENAME!!" 
j-GSTO 18080 ■ 


How it Works 

10-90 

Set up and load machine code section 

100-128 

Set up start addresses of machine code 
routines 

130-430 

Set up more variables and memory 

500-610 

Main menu selection 

1000-1310 

Editor entry/exit handling 

1500-1760 

Search/replace handling 

2000-2150 

Save routine set up 

3000-3070 

Load routine set up 

4000-4195 

Printout option selection 

4200-4410 

Printout entry/exit handling 

5000-5920 

Disk file handling routines 

7000-7160 

Word count handling 

8000-8040 

Restart program 

9000-9050 

Exit program 

10000-10010 

Put double byte number into memory 

10500 

Get double byte number from memory 

12000-12450 

On-screen help facility 

13000-13120 

Press SPACE requests (upper and 
lower case) 

14000-14050 

Get disk status and print any errors 

15000-15040 

Set up editor screen header/footer 

16000-16500 

Save and replace editor screen colours 

18000-18090 

Get filename and transfer to memory 
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PROGRAMMER 

OF THE 

YEAR 


commodore 


Polar problems with this 
month’s entry from Ian PottsT 

POLAR PETE IS THE LATEST GAME TO BE 
featured in the Programmer of the Year 
competition. The game doesn't feature 
really fast, super smooth graphics, but 
instead Ian Potts has taken a simple idea, 
added some extremely 'cute' graphics 
and produced an excellent game. A good 
game isn't always complicated. 

The Game 


POKE 16483,0: POKE44,64: NEW 

Now load 'PETE LOAD V into your 
machine and type RUN. Thrs will load in 
each of the parts as required and save 
them into memory. If you have made any 
errors while typing in any of the data 
statements you will now be told which 
line the error is in. Make the changes 
needed, SAVE the part again and start 
again from the POKE instructions above. 

When all of the information has been 
saved into memory the program will auto¬ 
matically save itself as 'POLAR PETE'. If 


you are using cassette then do make sure 
that you put a clean cassette into the 
recorder after part five has loaded. If you 
don't then 'POLAR PETE' will be saved 
after all of the other parts which are no 
longer needed. 

All you need to do to play POLAR PETE 
is turn your machine off and on and type 

LOAD "POLAR PETE",8,1 fo disk or 
LOAD "POLAR PETE',1,1 for tape 

Once the program has finished 
loading type RUN and play the game. 


Your aim is to guide Polar Pete around his 
local ice-pack collecting the blocks of ice 
so that he can build his igloo. Of course 
life isn't made easy as Pete has to avoid the 
penguins and polar bears which always 
seem to be in his way. 

Pete is controlled by a joystick in Port 
2. To pick up a block of ice you must 
position Pete just to the right of a block of 
ice and press the button. Positioning is 
important and it has been found that it is 
best to position Pete so that his nose is just 
above and right of the ice block. 

Once the ice block is collected Pete 
must drag the block back to his pad on the 
right hand side of the screen. Again 
position Pete to the right and press fire to 
deposit the block. 

After all of the blocks have been 
collected Pete will build his igloo and go 
on to the next screen. 

The music can be turned off by 
pressing any key on the keyboard. 

Oh, by the way, don't let Pete fall into 
the water as it's very cold! 

Getting It In 

Polar Pete will work on a C64 with either 
tape or disk. 

There are five parts to be entered 
(PETE LOAD 1-5). Each of the five parts 
must be typed into your machine 
separately and saved on to tape or disk. If 
you are using tape do make sure that the 
you make changes where indicated in the 
REM statements. Do make sure that you 
save the programs with the same names as 
in the magazine or they will not work. 

Once all parts have been saved turn 
your machine off and on and enter the 
following line: 



PROGRAHs PETE LOAD 1 

2000 FOR L=0 TO 156s CX=0 
:FOR D=0 TO 15;READ A 
:CX=CX+A:POKE 2049+LI16+D, 
A:NEXT D 

2010 READ A; IF AOCX THEN PR 
INT-ERROR IN LINE"; 
2040+(L$10):STOP 

2020 NEXT L 

2040 DATA 13,8,10,0,158,40, 
50,56,49,54,41,0,0,0,234, 
234,947 

2050 DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 
2244 


2060 DATA 234,234,234,234, 
234,234,234,234,234,234, 
234,234,234,234,234,234, 

3744 

2070 DATA 234,234,234,32,61, 
8,32,179,8,76,55,8,169,0, 
141,0,1471 

2080 DATA 0,0,0,0,0,0,0,31,0, 
31,240,0,240,0,7,128,677 

2090 DATA 0,12,0,0,24,192,0, 
32,32,0,40,32,0,192,0,0, 

556 

2100 DATA 192,0,8,99,254,8, 
63,3,136,0,0,248,0,0,8,0, 

1019 

2110 DATA 0,8,0,0,16,0,0,16, 
0,0,33,0,8,126,0,0,199 ? 






















C64 


2120 DATA 0,0,127,224,0,192, 
56,0,0,15,0,0,1,192,0,0, 

807 

2130 DATA 96,0,0,48,0,0,24,0, 
0,12,0,0,4,0,0,4,188 
2140 DATA 0,0,4,0,0,4,0,0,4, 
0,2,4,15,14,24,25,96 
2150 DATA 250,16,40,6,24,100, 
5,8,194,9,8,60,15,248,0,0, 
983 

2160 DATA 0,0,0,0,0,0,0,31,0, 
31,240,0,240,0,7,128,677 
2170 DATA 0,12,0,0,24,192,0, 
32,32,0,40,32,0,192,0,0, 

556 

2180 DATA 192,0,8,99,254,8, 
63,3,136,0,0,252,0,0,12,0, 
1027 

2190 DATA 0,4,0,0,12,0,0,22, 
0,0,18,0,0,63,0,0,119 
2200 DATA 0,0,127,224,0,192, 
56,0,0,15,0,0,1,192,0,0, 

807 

2210 DATA 96,0,0,48,0,0,24,0, 
0,12,0,0,4,0,0,4,188 
2220 DATA 0,0,4,0,0,4,0,0,4, 
0,0,8,31,12,16,33,112 
2230 DATA 250,16,32,2,32,16, 
4,48,16,4,72,240,15,248,0, 
0,995 

2240 DATA 0,0,0,0,0,248,0,0, 
15,248,0,0,15,0,0,1,527 
2250 DATA 224,0,0,48,0,3,24, 
0,4,4,0,4,20,0,0,3,334 
2260 DATA 16,0,3,16,127,198, 
17,192,252,31,0,0,16,0,0, 
16,884 

2270 DATA 0,0,8,0,0,8,0,0, 
132,0,0,126,0,0,0,0,274 
2280 DATA 0,0,0,7,254,0,28,3, 
0,240,0,3,128,0,6,0,669 
2290 DATA 0,12,0,0,24,0,0,48, 
0,0,32,0,0,32,0,0,148 
2300 DATA 32,0,0,32,0,0,32,0, 
0,32,64,0,24,112,240,8,576 
2310 DATA 95,152,24,96,20,16, 
160,38,16,144,67,31,240, 
60,0,0,1159 

2320 DATA 0,0,0,0,0,248,0,0, 
15,248,0,0,15,0,0,1,527 
2330 DATA 224,0,0,48,0,3,24, 
0,4,4,0,4,20,0,0,3,334 
2340 DATA 16,0,3,16,127,198, 
17,192,252,63,0,0,48,0,0, 
32,964 

2350 DATA 0,0,48,0,0,104,0,0, 
72,0,0,252,0,0,0,0,476 
2360 DATA 0,0,0,7,254,0,28,3, 
0,240,0,3,128,0,6,0,669 


2370 DATA 0,12,0,0,24,0,0,48, 
0,0,32,0,0,32,0,0,148 
2380 DATA 32,0,0,32,0,0,32,0, 
0,16,0,0,8,48,248,8,424 
2390 DATA 95,132,4,64,4,12, 
32,8,18,32,8,31,240,15,0, 
0,695 

2400 DATA 0,0,0,168,0,2,170, 
0,2,170,0,10,168,128,10, 

168,996 

2410 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

85,42,160,128,1704 
2420 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 

2430 DATA 160,128,42,162,80, 
22,169,80,21,69,64,5,69,0, 
0,0,1071 

2440 DATA 0,0,0,168,0,2,170, 
0,2,170,0,10,168,128,10, 

168,996 

2450 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

85,42,160,128,1704 
2460 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 

2470 DATA 160,128,42,162,0,6, 
169,64,5,85,64,5,69,0,0,0, 
959 

2480 DATA 0,0,0,168,0,2,170, 
0,2,170,0,10,168,128,10, 

168,996 

2490 DATA 128,42,170,144,42, 

170,84,42,170,85,42,170, 

85,42,160,128,1704 
2500 DATA 42,128,32,42,160, 

32,42,160,32,42,160,32,42, 

160,32,42,1180 
2510 DATA 160,128,42,162,0, 
10,168,0,1,85,64,1,85,64, 
234,169,1373 

2520 DATA 0,141,92,3,141,93, 

3,141,94,3,141,95,3,141, 
96,3,1190 

2530 DATA 169,8,32,210,255, 
169,0,141,24,3,169,11,141, 
25,3,76,1436 

2540 DATA 65,13,169,1,141,25, 
208,141,18,208,141,26,208, 
169,0,141,1674 

2550 DATA 52,3,141,56,3,141, 
14,220,141,53,3,169,20, 
141,54,3,1214 

2560 DATA 141,55,3,141,17, 

208,120,169,84,141,20,3, 
169,11,141,21,1444 
2570 DATA 3,88,96,169,1,141, 


25,208,169,40,141,18,208, 

173,54,3,1537 

2580 DATA 141,22,208,173,55, 
3,141,17,208,32,215,20, 
173,56,3,240,1707 
2590 DATA 16,173,232,3,208,3, 
76,45,13,169,0,141,232,3, 
76,244,1634 

2600 DATA 12,169,1,141,56,3, 
173,53,3,208,3,76,160,11, 
201,1,1271 

2610 DATA 208,3,76,219,11, 
201,2,208,3,76,22,12,76, 
81,12,173,1383 
2620 DATA 52,3,240,3,32,252, 

20.173.54.3.56.237.52.3, 
201,16,1397 

2630 DATA 144,6,141,54,3,76, 
49,234,105,8,141,54,3,169, 
1,141,1329 

2640 DATA 232,3,162,0,202, 
208,253,238,156,3,24,165, 
253,105,1,133,2138 
2650 DATA 253,165,254,105,0, 

133.254.76.137.12.173.52, 
3,240,3,32,1892 

2660 DATA 80,21,173,54,3,24, 

109,52,3,201,24,176,6,141, 
54,3,1124 

2670 DATA 76,49,234,233,8, 

141.54.3.169.1.141.232.3, 
162,0,202,1708 

2680 DATA 208,253,206,156,3, 
56,165,253,233,1,133,253, 
165,254,233,0,2572 
2690 DATA 133,254,76,137,12, 
173,52,3,240,3,32,18,22, 

173.55.3.1386 

2700 DATA 56,237,52,3,201,16, 
144,6,141,55,3,76,49,234, 

105.8.1386 

2710 DATA 141,55,3,169,1,141, 
232,3,162,0,202,208,253, 
238,157,3,1968 

2720 DATA 24,165,253,105,120, 
133,253,165,254,105,0,133, 
254,76,137,12,2189 
2730 DATA 173,52,3,240,3,32, 

61.22.173.55.3.24.109.52, 
3,201,1206 

2740 DATA 24,176,6,141,55,3, 

76.49.234.233.8.141.55.3, 
169,1,1374 

2750 DATA 141,232,3,162,0, 
202,208,253,206,157.3,56, 
165,253,233,120,2394 
2760 DATA 133,253,165,254, 
233,0,133,254,165,253,133, 
249,165,254,133,250,3027 


2770 DATA 162,0,160,0,177, 
249,157,0,4,232,200,192, 
40,208,245,24,2050 
2780 DATA 165,249,105,120, 
133,249,165,250,105,0,133, 

250,224,240,208,226,2822 
2790 DATA 162,0,160,0,177, 

249.157.240.4.232.200.192, 
40,208,245,24,2290 

2800 DATA 165,249,105,120, 
133,249,165,250,105,0,133, 

250,224,240,208,226,2822 
2810 DATA 162,0,160,0,177, 

249.157.224.5.232.200.192, 
40,208,245,24,2275 

2820 DATA 165,249,105,120, 
133,249,165,250,105,0,133, 

250,224,240,208,226,2822 
2830 DATA 76,49,234,24,165, 
253,105,112,133,249,165, 
254,105,8,133,250,2315 
2840 DATA 162,0,160,0,177, 

249.157.208.6.232.200.192, 
40,208,245,24,2260 

2850 DATA 165,249,105,120, 
133,249,165,250,105,0,133, 

250,224,240,208,226,2822 
2860 DATA 160,0,177,249,153, 
192,7,200,192,40,208,246, 
32,214,22,32,2124 
2870 DATA 214,22,32,168,24, 
32,144,26,169,0,141,56,3, 
76,49,234,1390 
2880 DATA 32,78,28,169,128, 

141.18.212.32.113.28.32, 
201,28,169,154,1563 

2890 DATA 32,210,255,169,147, 

32.210.255.32.145.18.32, 
160,19,32,35,1783 

2900 DATA 11,169,16,141,248, 

3.32.167.27.32.137.25.32, 
20,26,206,1292 

2910 DATA 248,3,173,248,3, 
240,3,7o,160,13,169,16, 
141,248,3,165,1909 
2920 DATA 203,201,64,240,26, 
173,86,27,208,13,169,15, 
141,24,212,169,1971 
2930 DATA 1,141,86,27,76,160, 
13,169,0,141,24,212,141, 
86,27,173,1477 
2940 DATA 0,220,41,4,208,19, 

169,1,141,53,3,169,2,141, 
52,3,1226 

2950 DATA 32,12,15,32,205,15 
76,23,14,173,0,220,41,8, 
208,19,1093 

2960 DATA 169,2,141,52,3,169 
0,141,53,3,32,78,15,32,15 








16,921 

2970 DATA 76,23,14,173,0,220, 
41,2,208,24,169,2,141,52, 
3,169,1317 

2980 DATA 2,141,53,3,169,142, 
141,250,7,32,144,15,32, 
147,16,76,1370 

2990 DATA 23,14,173,0,220,41, 
1,208,24,169,2,141,52,3, 
169,3,1243 

3000 DATA 141,53,3,169,138, 
141,250,7,32,144,15,32,81, 
16,76,23,1321 

3010 DATA 14,169,0,141,52,3, 
160,4,162,0,202,208,253, 
136,208,248,1960 

3020 DATA 173,0,220,41,16, 
240,3,76,103,13,173,241,5, 
201,8,240,1753 

3030 DATA 11,201,30,240,71, 
201,31,240,67,76,103,13, 
173,68,3,240,1768 

3040 DATA 3,76,103,13,169,1, 
141,68,3,238,252,7,169, 
144,141,63,1591 

3050 DATA 3,169,146,141,64,3, 
169,148,141,65,3,169,150, 


3110 DATA 13,238,70,3,173,70, 

3.201.1.240.16.169.30.141, 
71,3,1442 

3120 DATA 169,0,141,68,3,141, 

69.3.76.217.14.169.20.141, 
71,3,1305 

3130 DATA 169,0,141,68,3,141, 
69,3,32,177,29,32,66,20, 
169,142,1261 

3140 DATA 141,250,7,169,140, 
141,251,7,174,70,3,32,29, 
28,202,208,1852 
3150 DATA 250,169,8,141,222, 
3,162,0,160,0,136,208,253, 
202,208,248,2370 
3160 DATA 206,222,3,173,222, 
3,208,238,76,92,13,206,57, 
3,240,1,1963 

3170 DATA 96,169,16,141,57,3, 
169,130,141,250,7,173,251, 
7,201,131,1942 

3180 DATA 240,15,201,132,240, 
22,169,1,141,58,3,169,132, 
141,251,7,1922 
3190 DATA 96,169,0,141,58,3, 
169,132,141,251,7,96,173, 
58,3,240,1737 



141,66,3,1581 

3060 DATA 24,165,253,105,174, 
133,251,165,254,105,5,133, 
252,32,133,17,2201 

3070 DATA 32,66,20,32,253,27, 
32,253,27,76,103,13,173, 
68,3,208,1386 

3080 DATA 3,76,103,13,169,0, 
141,68,3,206,252,7,169, 
143,141,63,1557 

3090 DATA 3,169,145,141,64,3, 
169,147,141,65,3,169,149, 
141,66,3,1578 

3100 DATA 32,13,28,238,69,3, 
173,69,3,205,71,3,240,3, 
76,103,1329 


3200 DATA 6,169,131,141,251, 

7.96.169.133.141.251.7.96, 
206,57,3,1864 

3210 DATA 240,1,96,169,16, 
141,57,3,169,134,141,250, 
7,173,251,7,1855 
3220 DATA 201,135,240,15,201, 
136,240,22,169,1,141,58,3, 
169,136,141,2008 
3230 DATA 251,7,96,169,0,141, 

58.3.169.136.141.251.7.96, 
173,58,1756 

3240 DATA 3,240,6,169,135, 
141,251,7,96,169,137,141, 
251,7,96,206,2055 
3250 DATA 57,3,240,1,96,169, 


16.141.57.3.173.251.7.201, 

139.240.1794 

3260 DATA 15,201,140,240,22, 
169,1, 141,58,3,169,140, 

141.251.7.96.1794 

3270 DATA 169,0,141,58,3,169, 

140.141.251.7.96.173.58.3, 
240,6,1655 

3280 DATA 169,139,141,251,7, 
96,169,141,141,251,7,96, 

206,62,3,240,2119 
3290 DATA 1,96,169,3,141,62, 

3.173.8.208.201.198.240.4, 
238,8,1753 

3300 DATA 208,96,169,211,141, 

29.208.169.227.141.23.208, 
173,63,3,141,2210 

3310 DATA 252,7,173,9,208, 

201.151.240.10.48.4.206.9, 
208,96,238,2060 

3320 DATA 9,208,96,169,151, 
141,9,208,169,198,141,8, 
208,96,206,62,2079 
3330 DATA 3,240,1,96,169,3, 

141.62.3.173.8.208.201, 
126,240,8,1682 

3340 DATA 206,8,208,96,238,9, 

208.96.169.211.141.29.208, 
169,227,141,2364 

3350 DATA 23,208,173,64,3, 

141.252.7.173.9.208.201, 
151,240,6,48,1907 

3360 DATA 227,206,9,208,96, 
169,151,141,9,208,169,126, 
141,8,208,96,2172 
3370 DATA 206,62,3,240,1,96, 

169.3.141.62.3.173.9.208, 
201,172,1749 

3380 DATA 240,4,238,9,208,96, 

169.195.141.29.208.169, 
243,141,23,208,2321 

3390 DATA 173,65,3,141,252,7, 
173,8,208,201,174,240,10, 
48,4,206,1913 

3400 DATA 8,208,96,238,8,208, 

96.169.172.141.9.208.169, 
174,141,8,2053 

3410 DATA 208,96,206,62,3, 
240,1,96,169,3,141,62,3, 
173,9,208,1680 

3420 DATA 201,109,240,4,206, 
9,208,96,169,195,141,29, 
208,169,243,141,2368 
3430 DATA 23,208,173,66,3, 

141.252.7.173.8.208.201, 
174,240,10,48,1935 

3440 DATA 4,206,8,208,96,238, 

8.208.96.169.109.141.9, 
208,169,174,2051 


3450 DATA 141,8,208,96,160,0, 
185,45,17,145,251,200,192, 
4,208,246,2106 

3460 DATA 24,165,251,105,120, 
133,251,165,252,105,0,133, 
252,160,0,185,2301 
3470 DATA 49,17,145,251,200, 
192,4,208,246,24,165,251, 
105,120,133,251,2361 
3480 DATA 165,252,105,0,133, 
252,160,0,185,53,17,145, 
251,200,192,4,2114 

3490 DATA 208,246,24,165,251, 
105,120,133,251,165,252, 
105,0,133,252,160,2570 
3500 DATA 0,185,57,17,145, 
251,200,192,4,208,246,96, 
5,6,7,8,1627 

3510 DATA 9,10,10,11,12,10, 
10,13,14,15,16,17,160,0, 
185,99,591 

3520 DATA 17,145,251,200,192, 
7,208,246,24,165,251,105, 
120,133,251,165,2480 
3530 DATA 252,105,0,133,252, 
160,0,185,106,17,145,251, 
200,192,7,208,2213 
3540 /DATA 246,96,0,19,20,21, 
22,23,0,18,0,0,0,0,0,24, 
489 

3550 DATA 120,30,172,155,185, 
50,219,203,203,240,114, 
115,119,121,125,127,2298 
3560 DATA 126,132,132,133, 
160,0,185,221,17,145,251, 
200,192,4,208,246,2352 
3570 DATA 24,165,251,105,120, 
133,251,165,252,105,0,133, 
252,160,0,185,2301 
3580 DATA 225,17,145,251,200, 
192,4,208,246,24,165,251, 
105,120,133,251,2537 
3590 DATA 165,252,105,0,133, 
252,160,0,185,229,17,145, 
251,200,192,4,2290 
3600 DATA 208,246,24,165,251, 
244,244,244,244,244,244, 
244,244,244,244,244,3578 
4000 PRINT”CCLEAR3NEW" 

:PRINT”ID0HN2I 
L0AD"+CHR$(34)+"PETE LOAD 
2”+CHR$l34)+”,8* 

4010 REM It CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE It 
4020 PRINT"[DOWN43RUN" 

4030 POKE 631,13:POKE 632,13 
:POKE 633,13:POKE 198,3 
:PRINT"[HOME]" 






















PROGRAM: PETE LOAD 2 


2000 FOR L=0 TO 156:CX=0 
:FOR D=0 TO 15:READ A 
:CX=CX+A:POKE 4549+LU6+D, 
AiNEXT D 

2010 READ A: IF AOCX THEN PR 
INT'ERROR IN LINE"; 
2040+(Ltl0):STOP 
2020 NEXT L 

2040 DATA 251,105,120,133, 
251,165,252,105,0,133,252, 
160,0,185,233,17,2362 
2050 DATA 145,251,200,192,4, 
208,246,96,2,3,4,3,1,1,1, 
1,1358 

2060 DATA 1,1,1,1,1,1,1,1,23, 
31,35,68,56,84,107,243,655 
2070 DATA 112,4,187,252,90, 
94,54,67,86,118,156,145, 
138,32,36,36,1607 
2080 DATA 39,165,228,226,126, 
113,113,113,113,117,118, 
117,116,122,122,123,2071 
2090 DATA 129,131,132,132, 
133,120,126,124,128,128, 
115,123,123,123,113,120, 
2000 

2100 DATA 124,132,124,130, 
160,0,185,129,18,145,251, 
200,192,4,208,246,2248 
2110 DATA 24,165,251,105,120, 
133,251,165,252,105,0,133, 
252,160,0,185,2301 
2120 DATA 133,18,145,251,200, 

192,4,208,246,24,165,251, 
105,120,133,251,2446 
2130 DATA 165,252,105,0,133, 
252,160,0,185,137,18,145, 
251,200,192,4,2199 
2140 DATA 208,246,24,165,251, 
105,120,133,251,165,252, 
105,0,133,252,160,2570 
2150 DATA 0,185,141,18,145, 
251,200,192,4,208,246,96, 
0,30,31,0,1747 
2160 DATA 32,33,34,35,0,30, 
31,0,0,30,31,0,169,174, 
141,4,744 

2170 DATA 208,141,6,208,169, 
0,141,92,3,141,93,3,141, 
94,3,141,1584 

2180 DATA 95,3,141,96,3,169, 

130,141,5,208,169,151,141, 
7,208,162,1829 
2190 DATA 130,142,250,7,232, 
142,251,7,169,0,141,58,3, 
169,16,141,1858 
2200 DATA 57,3,169,151,141,9, 


208,169,198,141,8,208,169, 

15,141,43,1830 

2210 DATA 208,169,3,141,62,3, 
169,143,141,252,7,141,63, 
3,169,145,1819 
2220 DATA 141,64,3,169,147, 

141.65.3.169.149.141.66.3, 
169,0,141,1571 

2230 DATA 68,3,169,26,141,24, 
208,169,0,141,69,3,141,70, 
3,169,1404 

2240 DATA 10,141,71,3,169,9, 
141,34,208,169,5,141,35, 
208,169,33,1546 
2250 DATA 141,254,7,169,34, 
141,255,7,169,0,141,15, 
208,141,13,208,1903 
2260 DATA 141,12,208,141,14, 

208,169,11,141,45,208,141, 
46,208,169,70,1932 
2270 DATA 141,152,3,141,153, 
3,169,7,141,154,3,169,0, 
141,155,3,1535 
2280 DATA 169,27,141,157,3, 
169,70,141,156,3,169,111, 
133,254,169,94,1966 
2290 DATA 133,253,169,0,141, 
44,208,169,180,141,10,208, 
141,11,208,169,2185 
2300 DATA 43,141,253,7,169,0, 

141.212.3.141.214.3.169.4, 
141,213,1854 

2310 DATA 3,169,13,141,5,212, 
169,10,141,12,212,169,8, 
141,19,212,1636 
2320 DATA 169,1,141,6,212, 
141,13,212,169,8,141,20, 
212,169,15,141,1770 
2330 DATA 24,212,32,38,27, 

169,63,141,21,208,96,173, 
54,3,141,77,1479 
2340 DATA 3,169,0,141,54,3, 
169,105,133,252,169,120, 
133,251,160,0,1862 
2350 DATA 169,1,145,251,230, 
251,165,251,208,244,230, 
252,165,252,201,141,3156 
2360 DATA 208,236,169,112, 

133,252,169,148,133,251, 
162,0,160,0,169,0,2302 
2370 DATA 145,251,200,192,80, 
208,247,24,165,251,105, 
120,133,251,165,252,2789 
2380 DATA 105,0,133,252,232, 
224,49,208,227,160,0,169, 
2,145,251,200,2357 
2390 DATA 169,3,145,251,200, 
169,4,145,251,200,169,3, 
145,251,200,192,2497 


2400 DATA 80,208,232,162,0, 
189,237,17,133,251,189,11, 
18,133,252,32,2144 
2410 DATA 213,16,232,236,71, 
3,208,237,162,0,189,113, 
17,133,251,189,2270 
2420 DATA 123,17,133,252,32, 
61,17,232,224,10,208,238, 
169,227,133,251,2327 
2430 DATA 169,119,133,252,32, 
41,18,173,77,3,141,54,3, 
165,254,133,1767 
2440 DATA 252,165,253,133, 
251,162,0,160,0,177,251, 
157,0,4,232,200,2397 
2450 DATA 192,40,208,245,24, 

165,251,105,120,133,251, 
165,252,105,0,133,2389 
2460 DATA 252,224,240,208, 
226,162,0,160,0,177,251, 
157,240,4,232,200,2733 
2470 DATA 192,40,208,245,24, 

165,251,105,120,133,251, 
165,252,105,0,133,2389 
2480 DATA 252,224,240,208, 
226,162,0,160,0,177,251, 
157,224,5,232,200,2718 
2490 DATA 192,40,208,245,24, 

165,251,105,120,133,251, 
165,252,105,0,133,2389 
2500 DATA 252,224,240,208, 
226,162,0,160,0,177,251, 
157,208,6,232,200,2703 
2510 DATA 192,40,208,245,24, 

165,251,105,120,133,251, 
165,252,105,0,133,2389 
2520 DATA 252,224,240,208, 
226,160,0,177,251,153,192, 
7,200,192,40,208,2730 
2530 DATA 246,96,173,212,3, 
208,6,32,252,20,76,219,21, 
201,1,208,1974 
2540 DATA 6,32,80,21,76,164, 
21,201,2,208,6,32,18,22, 


76,104,1069 

2550 DATA 22,32,61,22,76,159, 
22,56,173,10,208,233,2, 
141,10,208,1435 
2560 DATA 176,8,173,16,208, 

41.223.141.16.208.173.16, 
208,41,32,208,1888 

2570 DATA 7,173,10,208,201, 

32.240.25.32.214.24.173, 
168,2,201,1,1711 

2580 DATA 240,15,173,170,2, 

201.1.240.8.173.172.2.201, 
1,240,1,1840 

2590 DATA 96,169,2,141,212,3, 

24.173.10.208.105.2.141, 
10,208,176,1680 

2600 DATA 1,96,173,16,208,9, 

32.141.16.208.96.24.173, 
10,208,105,1516 

2610 DATA 2,141,10,208,144,8, 

173.16.208.9.32.141.16, 
208,173,16,1505 

2620 DATA 208,41,32,240,7, 
173,10,208,201,64,240,25, 
32,214,24,173,1892 
2630 DATA 169,2,201,1,240,15, 

173.171.2.201.1.240.8.173, 
173,2,1772 

2640 DATA 201,1,240,1,96,169, 
3,141,212,3,56,173,10,208, 
233,2,1749 

2650 DATA 141,10,208,144,1, 

96.173.16.208.41.223.141, 
16,208,96,206,1928 

2660 DATA 213,3,240,1,96,169, 

4.141.213.3.173.253.7.201, 
41,240,1998 

2670 DATA 31,201,43,240,27, 
173,214,3,240,11,169,0, 
141,214,3,169,1879 
2680 DATA 41,141,253,7,96, 
169,1,141,214,3,169,43, 
141,253,7,96,1775 
2690 DATA 169,42,141,253,7, 


















96.206.213.3.240.1.96.169, 
4,141,213,1994 

2700 DATA 3,173,253,7,201, 
157,240,31,201,159,240,27, 
173,214,3,240,2322 
2710 DATA 11,169,0,141,214,3, 

169.157.141.253.7.96.169, 
1,141,214,1886 

2720 DATA 3,169,159,141,253, 
7,96,169,158,141,253,7,96, 

206.11.208.2077 

2730 DATA 206,11,208,173,11, 
208,201,48,240,18,32,214, 
24,173,168,2,1937 
2740 DATA 201,1,240,8,173, 

169.2.201.1.240.1.96.169, 

I, 141,212,1856 

2750 DATA 3,238,11,208,238, 

II, 208,96,238,11,208,238, 
11,208,173,11,2111 

2760 DATA 208,201,210,240,18, 
32,214,24,173,170,2,201,1, 
240,8,173,2115 

2770 DATA 171,2,201,1,240,1, 
96,169,0,141,212,3,206,11, 
208,206,1868 

2780 DATA 11,208,96,206,213, 

3.240.1.96.169.4.141.213, 
3,173,253,2030 

2790 DATA 7,201,154,240,31, 

201.156.240.27.173.214.3, 
240,11,169,0,2067 

2800 DATA 141,214,3,169,154, 

141.253.7.96.169.1.141, 
214,3,169,156,2031 

2810 DATA 141,253,7,96,169, 

155.141.253.7.96.206.213, 

3.240.1.96.2077 

2820 DATA 169,4,141,213,3, 
173,253,7,201,151,240,31, 
201,153,240,27,2207 
2830 DATA 173,214,3,240,11, 
169,0,141,214,3,169,151, 
141,253,7,96,1985 
2840 DATA 169,1,141,214,3, 

169.153.141.253.7.96.169, 
152,141,253,7,2069 

2850 DATA 96,173,155,3,208,3, 
76,225,22,76,45,23,206, 
154,3,173,1641 

2860 DATA 154,3,201,255,240, 

3.76.5.23.169.7.141.154.3, 
206,152,1792 

2870 DATA 3,173,152,3,201,53, 

240.3.76.5.23.169.1.141, 
155,3,1401 

2880 DATA 206,202,3,240,1,96, 
169,20,141,202,3,173,254, 
7,201,33,1951 


2890 DATA 208,11,169,35,141, 
254,7,169,36,141,255,7,96, 
169,33,141,1872 
2900 DATA 254,7,169,34,141, 
255,7,96,238,154,3,173, 
154,3,201,8,1897 
2910 DATA 240,3,76,81,23,169, 
0,141,154,3,238,152,3,173, 
152,3,1611 

2920 DATA 201,85,240,3,76,81, 
23,169,0,141,155,3,206, 
202,3,240,1828 
2930 DATA 1,96,169,20,141, 
202,3,173,255,7,201,37, 
208,11,169,40,1733 
2940 DATA 141,254,7,169,39, 

141,255,7,96,169,38,141, 
254,7,169,37,1924 
2950 DATA 141,255,7,96,173, 
156,3,205,233,3,16,3,76, 
142,23,173,1705 
2960 DATA 21,208,45,236,3, 
141,21,208,96,173,21,208, 
13,232,3,141,1770 
2970 DATA 21,208,173,233,3, 

56,237,156,3,141,234,3, 
173,54,3,41,1739 
2980 DATA 7,24,109,154,3,141, 
192,3,201,8,48,9,56,233,8, 
141,1337 

2990 DATA 192,3,238,234,3, 


173,234,3,201,48,16,195, 
173,234,3,208,2158 
3000 DATA 17,173,16,208,13, 
232,3,141,16,208,169,224, 
141,162,3,76,1802 
3010 DATA 77,24,201,1,208,17, 

173,16,208,13,232,3,141, 
16,208,169,1707 
3020 DATA 232,141,162,3,76, 
77,24,201,2,208,17,173,16, 
208,13,232,1785 
3030 DATA 3,141,16,208,169, 
240,141,162,3,76,77,24, 


173,234,3,201,1871 
3040 DATA 35,16,37,173,234,3, 
56,233,3,141,234,3,240,11, 
172,234,1825 

3050 DATA 3,169,0,24,105,8, 
136,208,250,141,162,3,173, 
16,208,45,1651 
3060 DATA 236,3,141,16,208, 
76,77,24,173,234,3,56,233, 
35,141,234,1890 
3070 DATA 3,172,234,3,169,0, 

24.105.8.136.208.250.141, 
162,3,173,1791 

3080 DATA 16,208,13,232,3, 
141,16,208,173,162,3,24, 
109,192,3,141,1644 
3090 DATA 162,3,157,12,208, 

173.157.3.205.153.3.16.3, • 
76,111,24,1466 

3100 DATA 173,21,208,45,236, 
3,141,21,208,96,173,21, 
208,13,232,3,1802 
3110 DATA 141,21,208,173,153, 

3.56.237.157.3.141.234.3, 
173,234,3,1940 

3120 DATA 201,31,16,220,173, 

234.3.56.233.1.141.234.3, 
169,0,172,1887 

3130 DATA 234,3,24,105,8,136, 

208.250.24.109.55.3.141, 
13,208,141,1662 


3140 DATA 15,208,96,169,64, 

141,232,3,173,152,3,141, 
233,3,169,191,1993 
3150 DATA 141,236,3,162,0,32, 

121,23,169,128,141,232,3, 
173,152,3,1719 

3160 DATA 24,105,6,141,233,3, 
169,127,141,236,3,162,2, 
32,121,23,1528 
3170 DATA 96,173,16,208,41, 
32,208,23,173,10,208,56, 
233,24,162,0,1663 
3180 DATA 56,233,8,144,4,232, 



76,229,24,142,188,2,76,9, 

25,173,1621 

3190 DATA 10,208,162,0,56, 
233,8,144,4,232,76,249,24, 
138,24,105,1673 
3200 DATA 28,141,188,2,173, 
11,208,56,233,50,162,0,56, 
233,8,144,1693 

3210 DATA 4,232,76,17,25,142, 
189,2,169,0,133,187,169,4, 
133,188,1670 

3220 DATA 174,189,2,240,16, 

165,187,24,105,40,133,187, 
165,188,105,0,1920 
3230 DATA 133,188,202,208, 

240.24.165.187.109.188.2, 
133,187,165,188,105,2424 

3240 DATA 0,133,188,160,0, 

177.187.141.168.2.200.200, 
177,187,141,169,2230 

3250 DATA 2,24,165,187,105, 
240,133,187,165,188,105,0, 
133,188,177,187,2186 
3260 DATA 141,171,2,136,136, 
177,187,141,170,2,56,165, 
187,233,120,133,2157 
3270 DATA 187,165,188,233,0, 

133.188.177.187.141.172.2, 
200,200,177,187,2537 

3280 DATA 141,173,2,96,173, 
30,208,141,102,3,41,8,208, 
1,96,173,1596 

3290 DATA 102,3,41,32,208,53, 
173,102,3,41,192,208,80, 
96,169,142,1645 
3300 DATA 141,250,7,169,140, 
141,251,7,169,0,141,52,3, 
141,86,27,1725 
3310 DATA 32,128,26,206,5, 
208,173,5,208,240,13,160, 
4,162,0,202,1772 
3320 DATA 208,253,136,208, 
248,76,184,25,76,115,26, 
173,16,208,41,32,2025 
3330 DATA 240,1,96,173,11, 
208,201,110,16,1,96,201, 
170,48,1,96,1669 
3340 DATA 173,10,208,201,160, 

16.1.96.201.200.48.178.96, 
173,16,208,1985 

3350 DATA 41,64,240,1,96,173, 

13.208.201.110.16.1.96, 
201,170,48,1679 

3360 DATA 1,96,173,12,208, 

201.110.16.1.96.201.200, 
48,144,96,173,1776 

3370 DATA 67,6,201,1,240,13, 
201,2,240,9,201,3,240,5, 
201,4,1634 w 

















3380 DATA 240,1,96,169,0,141, 

52.3.173.53.3.208.13.169, 
187,141,1649 

3390 DATA 4,208,169,150,141, 

5.208.76.97.26.201.1.208, 
13,169,158,1834 

3400 DATA 141,4,208,169,151, 
141,5,208,76,97,26,201,2, 
208,8,169,1814 
3410 DATA 170,141,5,208,76, 

97.26.169.144.141.5.208, 
169,231,141,21,1952 

3420 DATA 208,169,142,141, 
250,7,169,0,141,86,27,32, 
128,26,160,0,1686 
3430 DATA 162,0,202,208,253, 

136.208.248.76.65.13.169, 
59,141,15,212,2167 

3440 DATA 169,190,141,16,212, 
169,17,141,18,212,96,173, 
86,27,208,1,1876 
3450 DATA 96,206,107,27,240, 

1.96.173.90.27.141.107.27, 
169,2,141,1650 

3460 DATA 106,27,174,106,27, 
189,87,27,240,57,222,100, 
27,208,52,189,1838 
3470 DATA 97,27,41,254,188, 
103,27,153,4,212,138,10, 
170,32,29,27,1512 
3480 DATA 240,39,172,106,27, 
153,100,27,185,103,27,168, 
32,29,27,153,1588 
3490 DATA 0,212,32,29,27,153, 
1,212,174,106,27,189,97, 
27,9,1,1296 

3500 DATA 153,4,212,206,106, 

27.16.186.96.32.108.27, 
189,91,27,149,1629 

3510 DATA 217,189,92,27,149, 


218,161,217,208,200,181, 
217,208,2,214,218,2718 
3520 DATA 214,217,169,255, 

172.106.27.153.100.27.185, 
103,27,168,169,0,2092 

3530 DATA 153,0,212,153,1, 
212,240,203,246,217,208,2, 
246,218,161,217,2689 
3540 DATA 96,169,0,141,86,27, 

162.2.138.10.168.56.185, 
91,27,233,1591 

3550 DATA 1,153,217,0,185,92, 
27,233,0,153,218,0,202,16, 
233,169,1899 

3560 DATA 1,141,100,27,141, 
101,27,141,102,27,141,107, 
27,141,86,27,1337 
3570 DATA 96,0,1,1,1,3,112, 
41,45,43,64,31,16,32,128, 
0,614 

3580 DATA 0,0,0,7,14,0,0,173, 

97,27,201,16,208,31,169, 
79,1022 

3590 DATA 141,5,212,169,58, 
141,12,212,169,161,141,13 
212,169,64,141,2020 
3600 DATA 97,27,169,15,141, 
244,244,244,244,244,244, 
244,244,244,244,244,3133 
4000 PRINT"CCLEARINEH" 
:PRINT"[D0WN2I 
LOAD"+CHR$(34)+"PETE LOAD 
3"+CHR$(34)+*,8" 

4010 REN tt CHAN6E THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE t* 

4020 PRINT”CDOWN43RUN" 

4030 POKE 631,13:POKE 632,13 
:PQKE 633,13:POKE 198,3 
iPRINT'CHOHE]* ■ 


PROGRAM: PETE LOAD 3 


2000 FOR L=0 TO 156:CX=0 
:FOR D=0 TO 15:READ A 
:CX-CX+A:POKE 7049+L416+D, 
A:NEXT D 

2010 READ A: IF AOCX THEN PR 
INT"ERROR IN LINE"; 
2040+(L»10):STOP 
2020 NEXT L 

2040 DATA 141,3,212,169,32, 
41,2,212,96,169,13,141,5, 
2 2,169,10,1727 
205» DATA 141,12,212,169,1, 
141,13,212,169,16,141,97, 
27,96,174,92,1713 
2060 DATA 3,189,218,29,133, 


122.169.41.133.123.162.27, 
32,237,27,174,1819 

2070 DATA 93,3,189,218,29, 

133.122.162.28.32.237.27, 
174,94,3,189,1733 

2080 DATA 218,29,133,122,162, 
29,32,237,27,174,95,3,189, 
218,29,133,1830 
2090 DATA 122,162,91,32,237, 
27,174,96,3,189,218,29, 
133,122,162,92,1889 
2100 DATA 32,237,27,96,160,0, 
177,122,157,0,32,232,232, 
232,200,192,2128 
2110 DATA 7,208,243,96,238, 
96,3,173,96,3,201,10,240, 
1,96,169,1880 


2120 DATA 0,141,96,3,238,95, 

3.173.95.3.201.10.240.1, 
96,169,1564 

2130 DATA 0,141,95,3,238,94, 

3.173.94.3.201.10.240.1, 
96,169,1561 

2140 DATA 0,141,94,3,238,93, 

3.173.93.3.201.10.240.1, 
96,169,1558 

2150 DATA 0,141,93,3,238,92, 

3.173.92.3.201.10.240.1, 
96,169,1555 

2160 DATA 0,141,92,3,96,169, 

1.141.25.208.141.18.208, 
141,26,208,1618 

2170 DATA 120,169,102,141,20, 
3,169,28,141,21,3,88,96, 
169,1,141,1412 
2180 DATA 25,208,141,18,208, 
76,49,234,169,1,141,33, 
208,169,0,141,1821 
2190 DATA 32,208,169,255,141, 

21.208.169.223.141.29.208, 
169,239,141,23,2376 

2200 DATA 208,169,60,141,1, 

208.141.3.208.169.40.141, 
0,208,169,88,1954 

2210 DATA 141,2,208,169,15, 

141,39,208,141,40,208,169, 
15,141,41,208,1886 
2220 DATA 141,42,208,169,60, 
141,28,208,169,10,141,37, 
208,169,9,141,1881 
2230 DATA 38,208,169,20,141, 

24.208.162.128.142.248.7, 
232,142,249,7,2125 

2240 DATA 169,31,32,210,255, 

169.147.32.210.255.169.27, 
141,17,208,169,2241 

2250 DATA 8,141,22,208,173, 

97.27.41.254.141.97.27, 
173,98,27,41,1575 

2260 DATA 254,141,98,27,173, 

99.27.41.254.141.99.27, 
169,0,141,6,1697 

2270 DATA 212,141,13,212,141, 

20.212.169.142.141.250.7, 
169,140,141,251,2361 

2280 DATA 7,169,180,141,4, 

208.141.6.208.169.115.141, 
5,208,169,157,2028 

2290 DATA 141,7,208,169,32, 
141,16,208,169,0,141,44, 
208,169,152,141,1946 
2300 DATA 253,7,169,20,141, 

10.208.169.140.141.11.208, 
169,0,141,8,1795 

2310 DATA 208,141,9,208,169, 

128.141.248.7.169.129.141, 
249.7,162.37.2153 


2320 DATA 142,255,7,232,142, 

254,7,169,44,141,12,208, 
169,92,141,14,2029 
2330 DATA 208,169,140,141,13, 

208,141,15,208,169,11,141, 
45,208,141,46,2004 
2340 DATA 208,32,167,27,24, 
160,15,162,3,32,240,255, 
162,0,189,228,1904 
2350 DATA 29,32,210,255,232, 
224,23,208,245,24,160,5, 
162,22,32,240,2103 
2360 DATA 255,162,0,189,251, 
29,32,210,255,232,224,30, 
208,245,173,0,2495 
2370 DATA 220,41,16,208,249, 
169,0,141,17,208,141,16, 
208,169,211,141,2155 
2380 DATA 29,208,169,227,141, 
23,208,96,169,176,133,251, 
169,114,133,252,2498 
2390 DATA 162,0,160,0,189,25, 
30,145,251,232,200,192,17, 
208,245,165,2221 
2400 DATA 251,24,105,120,133, 
251,165,252,105,0,133,252, 
224,170,208,226,2619 
2410 DATA 96,32,39,46,53,60, 
67,74,81,88,95,80,79,76, 
65,82,1113 

2420 DATA 32,80,69,84,69,32, 
66,89,32,73,65,78,32,80, 
79,84,1044 

2430 DATA 84,83,80,82,69,83, 
83,32,70,73,82,69,32,84, 
79,32,1117 

2440 DATA 83,84,65,82,84,32, 
80,79,76,65,82,32,80,69, 
84,69,1146 


l,D,V,V,V,V,V,B,V, 

255,146,147,0,0,0,0,548 
2460 DATA 0,0,0,0,0,0,0,0, 
148,149,150,0,151,152,153, 


154,155,156,157,158,159, 

160,161,1260 

2480 DATA 162,0,0,0,0,0,0,0, 
163,164,165,166,167,168, 
169,170,1494 

2490 DATA 171,172,173,0,0,0, 
0,0,0,174,175,176,177,178, 
179,180,1755 

2500 DATA 181,182,183,184,0, 
0,185,186,187,188,189,190, 
191,192,193,194,2625 

2510 DATA 195,196,197,198, 
199,200,201,202,203,204, 
205,206,207,208,209,210, 
3240 






























2520 DATA 211,212,213,214, 
215,216,217,218,219,220, 
221,222,223,224,225,226, 
3496 

2530 DATA 227,228,229,230, 
231,232,233,234,0,0,0,0, 
235,236,237,238,2790 

2540 DATA 239,240,241,242, 
243,244,245,246,247,0,0,0, 
0,0,0,0,2187 

2550 DATA 248,249,250,251, 
252,253,254,0,0,0,0,0,0, 
234,234,234,2459 

2560 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2570 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2580 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2590 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2600 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2610 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2620 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2630 DATA 234,234,234,234, 
234,234,234,254,0,0,2,0,0, 
64,0,0,1958 

2640 DATA 2,140,58,2,41,52,1, 
120,46,1,120,46,2,41,52,2, 
726 

2650 DATA 140,58,2,41,52,1, 
120,46,1,120,46,2,41,52,2, 
140,864 

2660 DATA 58,2,41,52,1,120, 
46,1,120,46,2,41,52,2,140, 
58,782 

2670 DATA 2,41,52,4,120,46,2, 
140,58,2,41,52,1,120,46,1, 
728 

2680 DATA 120,46,2,41,52,2, 
140,58,2,41,52,1,120,46,1, 
120,844 

2690 DATA 46,2,41,52,2,140, 


58,2,41,52,1,120,46,1,120, 

46,770 

2700 DATA 2,41,52,2,140,58,2, 
41,52,4,120,46,0,0,255,0, 
815 

2710 DATA 255,0,255,0,255,0, 
255,0,174,1,180,83,76,69, 
70,84,1757 

2720 DATA 49,0,184,1,132,56, 

234,234,234,234,234,234, 
234,234,234,234,2762 

2730 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2740 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2750 DATA 234,234,234,234, 

234.234.234.60.60.60.102, 
102,102,96,96,102,2418 

2760 DATA 60,96,102,6,96,102, 
102,102,102,60,60,60,0,0, 
0,0,948 

2770 DATA 0,0,60,60,60,102, 

102 . 102 . 102 . 102 . 102 . 102 , 

102,102,102,102,1302 

2780 DATA 102,102,102,102,60, 
60,60,0,0,0,0,0,0,0,0,0, 
588 

2790 DATA 0,0,0,0,0,0,0,124, 
126,0,102,96,0,102,96,0, 
646 

2800 DATA 124,120,0,102,96,0, 
102,96,0,102,126,0,0,0,0, 
0,868 

2810 DATA 0,0,24,60,60,24, 
102,102,120,6,102,24,60, 
102,24,96,906 

2820 DATA 102,24,96,102,126, 
126,60,0,0,0,0,0,0,0,0,0, 
636 

2830 DATA 0,0,0,0,0,0,0,0,12, 
0,32,255,192,171,255,192, 
1109 

2840 DATA 171,255,240,171, 

255,240,170,255,252,170, 
255,252,42,255,252,42,3277 

2850 DATA 255,255,42,191,255, 
10,191,255,90,175,255,86, 
175,255,86,171,2747 

2860 DATA 255,86,171,255,1, 
171,255,1,170,255,1,106, 
252,0,90,176,2245 

2870 DATA 0,62,176,0,63,192, 
0,0,63,192,0,255,240,0, 
255,252,1750 

2880 DATA 3,250,252,3,250, 
252.15,234.252,7,235.252. 


5,171,252,5,2438 
2890 DATA 111,252,5,95,252,9, 

127.250.42.255.234.42.170, 
170,42,170,2226 

2900 DATA 168,2,170,160,0, 
255,192,0,63,0,0,63,0,2, 
170,0,1245 

2910 DATA 10,170,0,10,170,0, 
0,0,63,192,0,255,240,0, 
255,252,1617 

2920 DATA 3,250,252,3,250, 
252,15,250,252,15,250,252, 
15,250,252,15,2576 
2930 DATA 250,252,15,245,252, 

11.213.250.42.213.234.42, 
170,170,42,170,2571 

2940 DATA 168,2,170,160,0, 
255,192,0,255,192,8,243, 
240,10,240,232,2367 
2950 DATA 10,162,168,2,162, 
160,0,0,63,192,0,255,240, 
0,255,252,1921 
2960 DATA 3,250,252,3,250, 
252,15,250,188,15,254,188, 
15,254,172,15,2376 
2970 DATA 255,148,15,255,84, 

11.253.86.42.253.90.42, 
170,170,42,170,2086 

2980 DATA 168,2,170,160,0, 
255,192,35,255,240,43,243, 
248,43,192,232,2478 
2990 DATA 42,194,168,10,2, 
160,0,0,48,0,3,255,8,3, 
255,234,1382 

3000 DATA 15,255,234,15,255, 

234.63.255.170.63.255.170, 
63,255,168,255,2725 

3010 DATA 255,168,255,254, 
168,255,254,160,255,250, 

165,255,250,149,255,234, 
3582 

3020 DATA 149,255,234,149, 
255,234,64,255,170,64,63, 
169,64,14,165,0,2304 
3030 DATA 14,188,0,3,252,0,0, 
3,252,0,15,255,0,63,255,0, 
1300 

3040 DATA 63,175,192,63,175, 
192,63,171,240,63,235,208, 
63,234,80,63,2280 
3050 DATA 249,80,63,245,80, 
175,253,96,171,255,168, 
170,170,168,42,170,2555 
3060 DATA 168,10,170,128,3, 
255,0,0,252,0,0,252,0,0, 
170,128,1536 

3070 DATA 0,170,160,0,170, 
160,0,3,252,0,15,255,0,63, 
255,0,1503 

3080 DATA 63,175,192,63,175, 


192.63.175.240.63.175.240, 
63,175,240,63,2357 

3090 DATA 175,240,63,95,240, 
175,87,224,171,87,168,170, 
170,168,42,170,2445 
3100 DATA 168,10,170,128,3, 
255,0,3,255,0,15,207,32, 
43,15,160,1464 
3110 DATA 42,138,160,10,138, 
128,0,3,252,0,15,255,0,63, 
255,0,1459 

3120 DATA 63,175,192,63,175, 

192.62.175.240.62.191.240, 
58,191,240,22,2341 

3130 DATA 255,240,21,255,240, 
149,127,224,165,127,168, 
170,170,168,42,170,2691 
3140 DATA 168,10,170,128,3, 
255,0,15,255,200,47,207, 
232,43,3,232,1968 
3150 DATA 42,131,168,10,128, 
160,0,0,40,0,2,190,128,10, 
255,160,1424 

3160 DATA 11,255,224,43,255, 

232.47.255.248.175.255, 
250,175,255,250,175,3105 

3170 DATA 255,250,175,255, 

250.175.255.250.175.255, 

250.175.255.250.175.255, 

3655 

3180 DATA 250,175,255,250,43, 

255.232.43.255.232.42.255, 
168,10,190,160,2815 

3190 DATA 2,170,128,0,170,0, 
0,0,255,0,43,255,232,43, 
255,232,1785 

3200 DATA 175,255,250,175, 

255.250.175.255.245.175, 
255,245,95,255,245,95,3400 

3210 DATA 255,240,95,255,240, 
47,255,248,43,255,232,42, 
170,168,42,170,2757 
3220 DATA 168,10,170,160,3, 
195,192,3,195,192,10,131, 
192,10,131,192,1954 
3230 DATA 0,2,160,0,2,160,0, 
0,255,0,43,255,232,43,255, 
232,1639 

3240 DATA 175,255,250,175, 

255.250.175.255.250.175, 
255,250,95,255,245,95,3410 

3250 DATA 255,245,95,255,245, 
47,255,248,43,255,232,42, 
170,168,42,170,2767 
3260 DATA 168,10,170,160,3, 
195,192,3,195,192,3,195, 
192,3,195,192,2068 
3270 DATA 10,130,160,10,130, 
160,0,0,255,0,43,255,232, 
43,255,232,1915 _► 











C64 


3280 DATA 175,255,250,175, 
255,250,95,255,250,95,255, 
250,95,255,245,15,3170 
3290 DATA 255,245,15,255,245, 
47,255,248,43,255,232,42, 
170,168,42,170,2687 
3300 DATA 168,10,170,160,3, 
195,192,3,195,192,3,194, 
160,3,194,160,2002 
3310 DATA 10,128,0,10,128,0, 
0,0,170,0,2,170,128,10, 
190,160,1106 
3320 DATA 10,255,160,43,255, 

232.43.255.232.175.215, 
250,175,85,250,173,2808 

3330 DATA 215,122,173,215, 

122.173.125.122.173.215, 

122.173.215.122.173.215, 
2675 

3340 DATA 122,165,125,90,41, 
215,104,41,125,104,42,85, 
168,10,170,160,1767 
3350 DATA 2,170,128,0,170,0, 
253,0,0,0,0,0,0,0,0,0,723 
3360 DATA 0,0,0,0,0,0,0,0,0, 


3370*DATA 0,0,0,0,0,0,0,0,0, 


3380 DATA 0,63,255,255,63, 
255,255,63,255,255,131,0, 
12,163,0,12,2037 
3390 DATA 42,170,170,10,170, 
170,0,168,170,168,138,128, 
10,160,2,2,1678 
3400 DATA 128,32,34,130,0,2, 
128,2,34,128,32,2,136,0, 
34,128,950 

3410 DATA 8,2,130,0,138,128, 
0,8,130,34,10,160,0,34,42, 
170,994 

3420 DATA 170,63,255,255,63, 
255,255,63,255,255,131,0, 
12,163,0,12,2207 
3430 DATA 42,170,170,10,170, 
170,0,0,0,0,0,0,0,0,0,0, 
732 

3440 DATA 0,0,0,0,0,0,0,0,0, 


v,v,?,s,s,s, 


,V,V,B, V, V,0, 0,0, 
0 , 0 , 0 , 0 , 0 , 0 , 0,0 
3460 DATA 0,255,255,252,255, 
255,252,255,255,252,48,0, 
194,48,0,202,2778 
3470 DATA 170,170,168,170, 
170,160,0,42,170,42,160,2, 
162,128,128,10,1852 
3480 DATA 136,8,2,128,0,130, 
136,128,2,128,8,2,136,0, 
34,128,1106 

3490 DATA 32,2,162,0,130,32, 


SCORE 


I! I 0(1 




4 



0,2,160,136,130,136,0,10, 

170,170,1272 

3500 DATA 168,255,255,252, 
255,255,252,255,255,252, 
48,0,194,48,0,202,2946 
3510 DATA 170,170,168,170, 
170,160,0,128,0,2,128,0,2, 
143,255,242,1908 
3520 DATA 191,255,254,143, 

255.254.143.255.242.143, 

255.242.143.255.242.143, 
3415 

3530 DATA 255,242,143,255, 
242,143,255,242,143,255, 
242,143,255,242,143,255, 
3455 

3540 DATA 242,143,255,242, 
143,255,242,143,255,242, 
143,255,242,191,255,254, 
3502 

3550 DATA 191,255,254,143, 
255,242,0,128,0,2,142,170, 
162,138,0,34,2116 
3560 DATA 186,32,46,136,2,46, 
136,128,34,136,0,34,136, 


32,162,136,1382 
3570 DATA 8,34,138,128,34, 
142,0,34,138,0,162,138,34, 
34,136,0,1160 

3580 DATA 34,136,34,34,138,0, 
34,136,32,162,136,0,34, 
184,136,46,1276 
3590 DATA 184,0,174,138,170, 
178,0,143,255,242,191,255, 
254,191,255,254,2884 
3600 DATA 143,255,242,143, 

255.244.244.244.244.244, 

244.244.244.244.244.244, 
3722 

4000 PRINT"[CLEAR3NEW" 

: PRINT"CD0HN2] 
L0AD"+CHR$(34)+"PETE LOAD 
4"+CHR$(34)+*,8" 

4010 REN It CHANGE THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE II 
4020 PRINT"ED0WN43RUN" 

4030 POKE 631,13:POKE 632,13 
:POKE 633,13:POKE 198,3 
:PRINT"EH0ME3" _ 


PROGRAM: PETE LOAD 4 


2000 FOR L=0 TO 156:CX-0 
:FOR 0=0 TO 15:READ A 
:CX=CX+A:POKE 9549+LI16+D, 
A: NEXT D 

2010 READ A: IF AOCX THEN PR 
INT’ERROR IN LINE"; 

2040+(LI10):STOP 

2020 NEXT L 

2040 DATA 255,242,143,255, 
242,143,255,242,143,255, 
242,143,255,242,143,255, 
3455 

2050 DATA 242,143,255,242, 
143,255,242,143,255,242, 
143,255,242,143,255,242, 
3442 


2060 DATA 143,255,242,143, 
255,254,191,255,254,143, 
255,242,128,0,2,128,2890 
2070 DATA 0,2,0,138,170,178, 
184,0,174,184,136,46,136, 
0,34,136,1518 
2080 DATA 32,162,138,0,34, 
136,34,34,136,0,34,138,34, 
34,138,0,1084 

2090 DATA 162,142,0,34,138, 
128,34,136,8,34,136,32, 
162,136,0,34,1316 
2100 DATA 136,128,34,136,2, 
46,186,32,46,138,0,34,142, 
170,162,128,1520 
2110 DATA 0,2,234,0,0,0,0,40, 
0,0,170,0,2,170,128,2,748] 


2120 DATA 40,128,2,40,128,10, 

150,160,42,85,168,42,85, 

168,170,20,1438 
2130 DATA 170,168,20,42,168, 
20,42,168,0,42,168,0,42, 
168,0,42,1260 
2140 DATA 138,0,162,10,0,162, 
2,130,162,21,106,128,21, 
65,84,0,1191 

2150 DATA 1,84,0,0,0,0,0,40, 
0,0,170,0,2,170,128,2,597 
2160 DATA 40,128,2,40,128,10, 

150,160,42,85,168,42,85, 

168,170,20,1438 
2170 DATA 170,168,20,42,168, 
20,42,168,0,42,168,0,42, 
168,0,42,1260 
2180 DATA 138,0,162,138,0, 

162.2.130.160.2.170.128, 
21,65,84,21,1383 

2190 DATA 65,84,0,0,0,0,0,40, 
0,0,170,0,2,170,128,2,661 
2200 DATA 40,128,2,40,128,10, 

150,160,42,85,168,42,85, 

168,170,20,1438 
2210 DATA 170,168,20,42,168, 
20,42,168,0,42,168,0,42, 
168,0,42,1260 

2220 DATA 138,0,162,138,0, 
160,138,130,128,2,169,84, 
21,65,84,21,1440 
2230 DATA 64,0,0,0,0,0,0,40, 
0,0,170,0,2,170,128,2,576 
2240 DATA 170,128,2,170,128, 

10,170,160,42,170,168,42, 

170,168,170,170,2038 
2250 DATA 170,170,170,170, 

170,170,170,170,170,170, 

170,170,170,170,170,170, 
2720 

2260 DATA 138,170,162,10,170, 

162.2.170.162.21.106.128, 
21,65,84,0,1571 

2270 DATA 1,84,0,0,0,0,0,40, 
0,0,170,0,2,170,128,2,597 
2280 DATA 170,128,2,170,128, 

10,170,160,42,170,168,42, 

170,168,170,170,2038 
2290 DATA 170,170,170,170, 

170,170,170,170,170,170, 

170.170.170.170.170.170, 
2720 

2300 DATA 138,170,162,138, 

170.162.10.170.160.2.170, 
128,21,65,84,21,1771 

2310 DATA 65,84,0,0,0,0,0,40, 
0,0,170,0,2,170,128,2,661 
2320 DATA 170,128,2,170,128, 

10,170,160,42,170,168,42, 

170,168,1 7 0,170,2038 





























2330 DATA 170,170,170,170, 

170,170,170,170,170,170, 

170,170,170,170,170,170, 
2720 

2340 DATA 138,170,162,138, 

170.160.138.170.128.2.169, 
84,21,65,84,21,1820 

2350 DATA 64,0,0,0,0,0,0,42, 
0,0,170,128,0,170,128,2, 
704 

2360 DATA 42,160,2,42,160,6, 

170.168.21.170.168.85.170, 

168,85,170,1787 

2370 DATA 168,2,10,168,8,2, 

168,8,10,168,8,10,168,8, 

10,168,1084 

2380 DATA 8,10,168,2,10,168, 
5,138,168,5,106,148,1,81, 
84,0,1102 

2390 DATA 81,80,0,0,0,0,0,42, 
0,0,170,128,0,170,128,2, 
801 

2400 DATA 42,160,2,42,160,6, 

170,168,21,170,168,85,170, 

168,85,170,1787 
2410 DATA 168,2,10,168,8,2, 

168,8,10,168,8,10,168,8, 

10,168,1084 

2420 DATA 8,10,168,2,10,168, 
0,138,168,1,106,144,1,85, 
80,0,1089 

2430 DATA 81,80,0,0,0,0,0,42, 
0,0,170,128,0,170,128,2, 
801 

2440 DATA 42,160,2,42,160,6, 

170,168,21,170,168,85,170, 

168,85,170,1787 
2450 DATA 168,2,10,168,8,2, 

168,8,10,168,8,10,168,8, 

10,168,1084 

2460 DATA 8,10,168,2,10,168, 
0,138,168,0,42,160,1,85, 
64,1,1025 

2470 DATA 85,64,0,0,0,0,0,0, 
0,0,0,255,255,255,255,255, 
1424 

2480 DATA 255,255,255,255, 

192.192.192.192.48.48.192, 
243,12,0,0,0,2331 

2490 DATA 0,0,0,192,63,12,12, 

48.48.12.48.63.192.192, 
204,192,1278 

2500 DATA 192,240,192,243,12, 
0,0,12,243,0,0,255,0,0,48, 
0,1437 

2510 DATA 0,60,0,195,63,3, 
243,3,51,3,3,192,192,48, 
48,48,1152 

2520 DATA 192,204,192,3,48,0, 
0,12,192,3,0,3,51,3,204, 


204,1311 

2530 DATA 12,12,51,192,204, 
204,204,192,48,195,192,3, 
3,51,51,51,1665 
2540 DATA 3,15,3,255,192,204, 

192.192.195.48.15.195.60, 
0,195,0,1764 

2550 DATA 48,0,255,243,12,48, 
0,12,0,240,15,252,3,51,3, 
3,1185 

2560 DATA 51,3,252,3,3,12,12, 
48,48,0,0,0,0,0,3,12,447 
2570 DATA 48,192,192,0,15, 
240,0,0,0,0,0,255,0,0,0,0, 
942 

2580 DATA 0,0,0,0,240,15,0,0, 
0,0,0,0,0,0,192,48,495 
2590 DATA 12,3,3,192,192,48, 
48,12,12,0,0,234,234,234, 
234,234,1692 

2600 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234,234,234,234,234,234, 
3744 

2610 DATA 234,234,234,234, 

234,234,234,234,234,234, 

234.234.234.234.234.234, 
3744 

2620 DATA 234,234,234,21,21, 
21,21,21,21,21,21,84,84, 
84,84,84,1290 

2630 DATA 84,84,84,255,192, 
207,204,207,204,192,255, 
255,0,195,204,207,2829 
2640 DATA 12,0,255,255,0,15, 
204,204,207,0,255,255,3,3, 
195,195,2058 

2650 DATA 3,3,255,60,102,102, 
102,102,102,60,24,24,120, 
24,24,24,1131 

2660 DATA 126,60,102,6,60,96, 

96.126.60.102.6.28.6.102, 
60,12,1048 

2670 DATA 28,60,108,126,12, 

12.126.96.124.6.6.102.60, 
60,102,96,1124 

2680 DATA 124,102,102,60,126, 

6.6.12.24.24.24.60.102, 
102,60,102,1036 

2690 DATA 102,60,60,102,102, 

62.6.102.60.234.234.234, 
234,234,234,234,2294 

2700 DATA 234,234,234,2,238, 

21,2,137,19,2,104,17,2, 
104,17,2,1369 

2710 DATA 70,29,2,20,26,2,60, 
23,2,60,23,2,238,21,2,137, 
717 

2720 DATA 19,2,104,17,2,104, 

17,2,137,19,2,238,21,4, 


238,21,947 

2730 DATA 2,238,21,2,137,19, 
2,104,17,2,104,17,2,70,29, 
2,768 

2740 DATA 20,26,2,60,23,2,60, 

23.2.104.17.2.137.19.2, 
238,737 

2750 DATA 21,2,238,21,2,137, 

19.6.104.17.2.238.21.2, 
137,19,986 

2760 DATA 2,104,17,2,104,17, 

2.70.29.2.20.26.2.60.23.2, 
482 

2770 DATA 60,23,2,238,21,2, 

137,19,2,104,17,2,104,17, 
2,137,887 

2780 DATA 19,2,238,21,4,238, 

21.2.238.21.2.137.19.2, 

104,17,1085 

2790 DATA 2,104,17,2,70,29,2, 

20.26.2.60.23.2.60.23.2, 
444 

2800 DATA 104,17,2,137,19,2, 

238,21,2,238,21,2,137,19, 
6,104,1069 

2810 DATA 17,2,238,21,2,60, 
23,2,20,26,2,20,26,2,70, 
29,560 

2820 DATA 2,220,32,2,208,34, 

2,208,34,2,238,21,2,60,23, 
2,1090 

2830 DATA 20,26,2,20,26,2, 

137.19.2.238.21.4.238.21, 
2,238,1016 

2840 DATA 21,2,60,23,2,20,26, 
2,20,26,2,70,29,2,220,32, 
557 

2850 DATA 2,208,34,2,208,34, 
2,104,17,2,110,16,2,163, 
14,2,920 

2860 DATA 163,14,2,137,19,2, 

138.19.4.104.17.2.238.21, 
2,60,942 

2870 DATA 23,2,20,26,2,20,26, 
2,70,29,2,220,32,2,208,34, 
718 

2880 DATA 2,208,34,2,238,21, 

2.60.23.2.20.26.2.20.26.2, 
688 

2890 DATA 137,19,2,238,21,4, 

238.21.2.238.21.2.60.23.2, 
20,1048 

2900 DATA 26,2,20,26,2,70,29, 
2,220,32,2,208,34,2,208, 
34,917 

2910 DATA 2,104,17,2,110,16, 
2,163,14,2,163,14,2,137, 
19,2,769 

2920 DATA 138,19,4,104,17,2, 

238.21.2.137.19.2.104.17. 


2,104,930 

2930 DATA 17,2,70,29,2,20,26, 

2,60,23,2,60,23,2,238,21, 
597 

2940 DATA 2,137,19,2,104,17, 

2.104.17.2.137.19.2.238, 
21,4,827 

2950 DATA 238,21,2,238,21,2, 

137.19.2.104.17.2.104.17, 
2,70,996 

2960 DATA 29,2,20,26,2,60,23, 

2.60.23.2.104.17.2.137.19, 
528 

2970 DATA 2,238,21,2,238,21, 
2,137,19,6,104,17,64,0,0, 
0,871 

2980 DATA 4,238,21,2,104,17, 

2,104,17,4,70,29,2,60,23, 

2,699 

2990 DATA 60,23,4,238,21,2, 

104.17.2.104.17.4.137.19, 
4,238,994 

3000 DATA 21,4,238,21,2,104, 

17.2.104.17.4.70.29.2.60, 
23,718 

3010 DATA 2,60,23,4,104,17,2, 

238.21.4.238.21.6.104.17, 
4,865 

3020 DATA 238,21,2,104,17,2, 

104,17,4,70,29,2,60,23,2, 
60,755 

3030 DATA 23,4,238,21,2,104, 

17.2.104.17.4.137.19.4, 

238.21.955 

3040 DATA 4,238,21,2,104,17, 

2,104,17,4,70,29,2,60,23, 

2,699 

3050 DATA 60,23,4,104,17,2, 

238,21,4,238,21,6,104,17, 
4,238,1101 
3060 DATA 21,2,104,17,2,104, 

17.4.70.29.2.60.23.2.60, 
23,540 

3070 DATA 4,238,21,2,104,17, 

2.104.17.4.137.19.4.238, 
21,4,936 

3080 DATA 238,21,2,104,17,2, 

104,17,4,70,29,2,60,23,2, 
60,755 

3090 DATA 23,4,104,17,2,238, 

21.4.238.21.2.138.19.4, 

104.17.956 

3100 DATA 4,238,21,2,104,17, 

2,104,17,4,70,29,2,60,23, 

2,699 

3110 DATA 60,23,4,238,21,2, 

104,17,2,104,17,4,137,19, 
4,238,994 
3120 DATA 21,4,238,21,2,104, 

17.2.104.17.4.70.29.2.60, 
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23,718 

3130 DATA 2,60,23,4,104,17,2, 
238,21,4,238,21,2,138,19, 
4,897 

3140 DATA 104,17,4,238,21,2, 

104,17,2,104,17,4,70,29,2, 
60,795 

3150 DATA 23,2,60,23,4,238, 
21,2,104,17,2,104,17,4, 
137,19,777 
3160 DATA 4,238,21,4,238,21, 
2,104,17,2,104,17,4,70,29, 
2,877 

3170 DATA 60,23,2,60,23,4, 
104,17,2,238,21,4,238,21, 
6,104,927 
3180 DATA 17,64,0,0,0,254,0, 
0,2,0,0,64,0,0,2,140,543 
3190 DATA 58,2,41,52,1,120, 
46,1,120,46,2,41,52,2,140, 
58,782 

3200 DATA 2,41,52,0,0,0,0,0, 
0,255,0,0,0,0,0,0,350 
3210 DATA 0,192,63,0,0,0,3, 
15,60,60,204,15,48,192,0, 
0,852 

3220 DATA 192,60,3,3,3,12,12, 
12,12,12,252,48,48,12,12, 
12,705 

3230 DATA 12,12,15,240,12,3, 
0,0,3,60,192,0,0,0,192, 
240,981 

3240 DATA 12,12,3,0,3,3,15, 

12,60,60,204,240,48,192, 
192,192,1248 

3250 DATA 48,15,0,0,0,3,3,3, 
3,3,255,207,192,0,0,0,732 


3260 DATA 0,0,0,255,12,12,12, 
12,12,12,12,240,0,0,0,0, 
579 

3270 DATA 0,0,0,192,192,48, 

48.48.48.48.63.3.3.3.3.3, 
702 

3280 DATA 12,240,192,0,192, 
192,240,48,60,60,51,0,0,3, 
3,12,1305 

3290 DATA 12,12,48,204,240, 
240,48,15,0,0,0,0,0,3,3,3, 
828 

3300 DATA 243,207,192,195, 
192,0,0,0,0,0,252,240,15, 
12,12,12,1572 

3310 DATA 12,12,12,12,255,0, 
0,0,0,0,0,15,252,12,12,12, 
606 

3320 DATA 12,12,12,192,0,0,0, 
0,0,0,63,192,192,48,48,48, 
819 

3330 DATA 63,240,0,51,15,15, 
12,240,192,192,192,0,0, 
192,192,48,1644 

3340 DATA 48,48,12,48,60,51, 
192,192,192,192,192,0,0,0, 
192,48,1467 

3350 DATA 63,48,48,192,192, 

192.192.192.192.240.15.3, 
3,3,3,3,1581 

3360 DATA 3,3,3,252,15,0,0,0, 
0,0,0,0,255,12,12,12,567 

3370 DATA 12,12,12,15,240,0, 
0,0,0,0,0,240,48,48,48,48, 
723 


0,15,240,192*, 192,192,195, ’ 


207,1377 

3390 DATA 243,3,3,12,60,204, 

3.3.3.3.3.15.12.63.48.192, 
870 

3400 DATA 192,192,192,255,0, 

255.48.192.192.192.192, 
255,192,255,3,12,2619 

3410 DATA 12,12,12,255,3,255, 

3,3,3,3,3,192,192,48,15,3, 
1014 

3420 DATA 3,3,3,48,48,48,48, 
240,48,15,0,3,3,3,3,3,519 
3430 DATA 3,3,243,255,3,0,0, 
0,0,0,0,0,240,15,15,15,792 
3440 DATA 15,15,15,12,12,255, 
255,255,255,255,255,0,15, 
252,252,252,2370 
3450 DATA 252,252,252,63,192, 


, B, »,»,»,», ID,-TO, TO, TU, 

48,1251 

3460 DATA 48,48,63,3,3,3,3,3, 
12,240,192,3,3,12,240,48, 
924 

3470 DATA 48,48,48,192,192, 
192,192,192,192,192,192,0, 
3,3,3,3,1692 

3480 DATA 3,3,3,255,0,0,0,0, 
0,0,255,255,3,3,3,3,786 
3490 DATA 3,3,255,255,0,0,0, 
0,0,0,255,255,12,12,12,12, 
1074 

3500 DATA 12,12,252,3,195, 
195,243,207,195,192,192,0, 
0,0,0,0,1698 

3510 DATA 0,192,48,207,192, 
192,192,192,192,192,192,0, 
252,3,3,3,2052 


3520 DATA 3,3,3,15,15,255,15, 
0,0,0,0,255,255,255,255, 
12,1341 

3530 DATA 12,12,12,252,252, 
255,240,0,0,0,0,0,63,240, 
48,48,1434 

3540 DATA 48,48,48,240,0,0,0, 
0,0,0,0,192,192,192,192, 
192,1344 

3550 DATA 192,195,207,48,51, 
51,60,48,192,0,0,240,192, 
192,192,192,2052 
3560 DATA 192,192,192,3,3,3, 
3,3,3,3,3,0,0,0,0,0,600 
3570 DATA 0,0,255,192,192, 
192,192,192,192,192,255, 
12,12,12,12,12,1914 
3580 DATA 12,12,255,15,12,12, 

12,12,12,12,252,192,192, 
192,48,15,1257 

3590 DATA 3,3,3,63,48,48,48, 

48,240,48,15,192,240,15,3, 
3,1020 

3600 DATA 3,3,3,3,3,244,244, 
244,244,244,244,244,244, 
244,244,244,2699 
4000 PRINT" [CLEAR1NEW 
: PRINT"CDQWN2] 

LQAD-+CHR$(34)+*PETE LOAD 
5"+CHR*(34)+",8" 

4010 REN tt CHAN6E THE ,8 
IN ABOVE LINE TO ,1 IF 
YOU ARE USING TAPE II 
4020 PRINT*ED0MN43RUN" 

4030 POKE 631,13:POKE 632,13 
:POKE 633,13:POKE 198,3 
:PRINT* EHOMEI* 


PROGRAM: PETE LOAD 5 


FOR L=0 TO 15:CX-0 
:FOR D=0 TO 15:READ A 
:CX*CX+A:POKE 12049+LI16+ 
D,A:NEXT D 

2010 READ A: IF AOCX THEN PR 
INT"ERRQR IN LINE"; 

2040+(Lt10):STOP 

2020 NEXT L 

2040 DATA 3,3,255,3,0,0,0,0, 
0,0,0,240,15,12,12,12,555 

2050 DATA 12,12,12,12,255,0, 
0,0,0,0,0,15,252,12,12,48, 
642 

2060 DATA 48,48,63,192,0,0,0, 
0,15,240,48,48,48,48,48, 
243,1089 

2070 DATA 3,3,3,3,3,12,240,0, 
3,3,12,240,240,48,48,240, 
1101 

2080 DATA 48,48,48,48,48,48, 


48,3,0,0,0,0,0,0,0,3,342 
2090 DATA 195,195,51,15,0,0, 
0,0,0,0,0,0,192,48,15,243, 
954 

2100 DATA 207,192,192,192, 
192,192,192,0,0,252,3,3,3, 
3,3,12,1638 

2110 DATA 12,12,252,15,0,0,0, 
0,0,0,0,255,12,12,12,12, 
594 

2120 DATA 12,12,15,240,0,0,0, 
0,0,63,240,48,48,48,48,63, 
837 

2130 DATA 240,0,0,0,0,0,0, 
192,192,192,192,192,195, 
204,240,48,1887 
2140 DATA 51,51,60,240,0,0,0, 
192,0,0,0,0,0,0,0,240,834 
2150 DATA 15,0,0,0,0,0,0,3,3, 
255,3,0,0,0,0,0,279 
2160 DATA 0,0,240,15,0,0,0, 
12,12,12,12,255,0,0,0,0, 


558 

2170 DATA 0,0,15,240,0,0,0, 
48,48,63,192,0,0,0,0,15, 
621 


,S,»,V,B,V,V,V, 

0,0,0,0,0,3,255,68,566 
2190 DATA 255,255,255,0,0,0, 
0,40,0,0,170,0,2,170,128, 


2,1277 

4000 POKE 43,1:POKE 44,8 
:POKE 45,5:POKE 46,48 
4010 SAVE'POLAR PETE",8,1 
4020 REN II CHANGE THE ,8,1 
IN ABOVE LINE TO ,1,1 
IF YOU ARE USING TAPE 
II 
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HAVE YOU EVER WANTED TO WRITE 
your own arcade game but have been put 
off because of the complexities of 
machine code? Have you ever wished that 
the Basic on the C64 allowed you to do 
more with graphics? Or, have you always 
found it easy to write programs in Basic 
but always found them too slow? Well, 
two new packages from Ocean IQ will 
solve all of your problems. 

The first of the two programs is Laser 
Basic. Essentially this is just a Basic 
extension like many others available on 
the market. What makes it different from 
all of the rest is its plethora of graphics 
commands. In fact, nearly all of the 
commands in this Basic are geared to 
making the task of graphics programming 
easier. Not all of the commands are 
graphics based, though. There are also 
many advanced programming commands 
such as procedures and quite a formid¬ 
able array of 'toolkit' commands such as 
Renumber. 

Thesecond package istheonethat will 
be of great interest to anyone who has 
found their latest version of Space Invaders 
just a little slow when written in Basic. The 
program is the Laser Compiler. The com¬ 
piler will change standard Commodore 
Basic and Laser Basic programs into mach¬ 
ine code. Obviously this will give any pro¬ 
programs a significant increase in speed. 

Laser Basic is an extension of an earlier 
program called Basic Lightning which has 
been around for some time. If you alread 
have Basic Lightning then you will be 
pleased to know that the Laser Compiler 
will compile most programs written with 
this package. But more of this later. 

Laser Basic 


written programs in Pascal or other struc¬ 
tured languages you'll know just how 
valuable are Procedures, Labels and other 
programming aids. For those who have 
never come across these commands let's 
take a closer look. 

With a normal GOSUB statement in 
Basic you would use something like 
GOSUB 1000. Line 1000 could, for 
example, be the subroutine that updates 
the score. Unfortunately the line number 
1000 doesn't tell you this. With Laser 
Basic you could re-write the GOSUB 
command like this: 

GOSUB update 


ery reliable. Even trying turbo saved 
ams on different cassette recorders 


Documentation 


A large manual is supplied with the 
package which deals with all of the 
commands in detail. Some sections are a 
little difficult to understand at first 
reading but numerous example programs 
do make things a little clearer. Beginners 
would be well advised to try all examples 
and make sure that they understand how 
they work before they attempt to write 
any fantastic games program. 


Stuart Cooke has been 
experimenting with two Laser 
programs from Ocean. 


As previously mentioned, this is essen¬ 
tially a Basic Extension, but a very 
powerful one. One very nice feature is the 
inclusion of a tape turbo save option. This 
will undoubtedly please cassette users 
who are totally fed up with the slowness of 
the Commodore cassette deck. In use the 
turbo proved itself to be both very fast 


In Use 

Programming with Laser Basic is a joy, 
though, when you get on to using 
graphics, it is a little complicated to 
understand at first. The numerous 
structured programming commands 
make the Basic great to use. If you've ever 


and line 1000 would become 
1000 LABEL update:. 

This makes it much easier to follow the 
flow of a program. 

Procedures take the use of labels 
much further. With a procedure it is 
possible to have a program that uses a 
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vaiable, for example VAR1. The proce¬ 
dure, which is similar to a subroutine 
can also use the same variable name 
however, the two can be treated as com¬ 
pletely separate items the value of one not 
affecting the value of the other. 

Other structured programming 
commands are REPEAT... UNTIL loops, 
IF. .THEN. .ELSE and WHILE. .WEND. All of 
which lead to much clearer and easier 
programming. 

Identity Crisis 

Before we take a look at the graphics 
commands it is worth taking a close look 
at what is a new idea. 

No doubt you will have already heard 
about the sprites that are available on the 
C64. In Laser Basic these have been 
renamed Hardware Sprites and a new 
type of sprite has been added, the Soft¬ 
ware Sprite. A software sprite, unlike a 
hardware sprite, is of dimensions that are 
set by the user up to a maximum of 255 
character blocks by 255 character blocks. 

All graphic commands are operated 
on Sprites, this may make you wonder 
how you get things on to the screen until 
you realise tht the hi-res screen is treated 
as sprite number zero with fixed 
dimensions and that the text screen is 
treated as sprite number 255 also with 
fixed dimensions. 

A sprite designer package is included 
with Laser Basic, using this it is easy to 
design extremely large sprites. 


Numerous commands are available for 
sprite drawing. It is possible to plot points 
on a sprite, draw boxes, draw lines. With 
the POLY command it is also possible to 
draw polygons and circles. Blank areas, 
such as those created with the BOX and 
POLY commands can be coloured in with 
the FILL command. 

Moving it Around 

Sprites can be manipulated in numerous 
ways. The PUTBLK command is used to 
place a sprite at a specific place on the hi¬ 
res screen. It is possible to OR, AND or 
XOR the sprite with whatever is already 
on the screen. With careful use of these 
commands the software sprites can be 
made to appear in front of, or behind, 
other items on the screen. 

Commands also exist for copying 
sprites, or parts of sprites, into other 
sprites. 

Commands exist for moving sprites 
around the screen and scrolling them. It is 
even possible to make a sprite follow the 
path of another. 

Scrolling backdrops are now ext¬ 
remely easy. All that you need to do is to 
define your background as a sprite, don't 
forget that this can be up to 255 characters 
wide. Place this on the screen - only part 
of it will show - and then scroll the 
background sprite with one of the 
numerous scroll commands. It's as simple 
as that. It was never as easy as this to write 
Defender before. 


And There’s More 

Obviously it is only possible to give a taste 
of some of the commands available. There 
are many that I haven't even mentioned. 
If you are interested in playing around 
with graphics or just interested in 
programming then you should rush out 
and buy a copy of the program. You 
should be creating works of art in no time 
at all. 

Speeding Things Up 

It's no good writing the world's best inter- 
galactic space flight simulator only to find 
out that Brian the snail can beat your 
space ship at full speed. Nonetheless, that 
is exactly what will happen if you write 
your programs in Basic. The only way to 
write fast programs is to use machine code 
like all of the top programmers. Or is it? 

The Laser Basic compiler will take 
programs that have been written using 
Laser Basic (and normal Basic) and turn 
them into machine code. Obviously the 
program generated by a compiler is not as 
compact or as fast as one written entirely 
in machine code but it will be many times 
faster than normal. 

As can be seen, the Laser Basic 
compiler provides Commodore 64 
owners with an excellent programming 
aid. No longer do you have to study 
machine code. Simply write your program 
in Basic and off you go. 

Ocean IQ will also let you freely 
market any program that is written using 
Laser Basic and Laser Compiler as long as 
you put a mention on the packaging that 
these programs were used. Perhaps these 
packages could bring out the budding 
Minters and Crowthers in many people. 

The Manual supplied with Laser Com¬ 
piler is very small, only seven pages, but all 
necessary information is there. It explains 
how to compile a program including how 
to save it. A turbo option is included for 
tape users. Disk users shouldn't feel left 
out either as they are provided with a 
routine that will make programs auto 
start. 

For the many users of Basic Lightening, 
a small section is included that explains 
the differences in some of the commands, 
though most of these are only minor. For 
example the CUTOFF command now uses 
numbers in the range zero to 65535 
instead of zero to 2047. 

A quick glance at the demo program 
supplied with these packages shows just 
what is possible with these two excellent 
programming tools. When the Basic 
version of the demo is run it is surprising 
enough what is being done from within 
Basic. But when you see the speed of the 
compiled version it looks even better. 

If you want to get into graphics pro¬ 
gramming but don't fancy getting into 
machine code then take a look at both of 
these packages they are well worth it. 

















Eric Doyle guides you 
through some more C-16 
games — new and not so 


new, _ 

ANY PROGRAMMER WHO IS PLANN- 
ing a game for the C-16 always meets the 
problem of fitting the game into the 
limited memory space. This does not 
mean that the quality of the game will 
suffer, as Commodore proved with the 
3.5K Vic 20. Unfortunately, the compres¬ 
sion of and economical use of memory is 
not every software house's forte and the 
consequence is a plethora of unsatis¬ 
factory games. As I have shown there are 
several houses which take the C16 
seriously and this month's collection 
shows the range of games which have 
impressed me and the reasons why. 

Watching my colleagues in the office 
engrossed in yet another game of Break¬ 
out (and loving every minute) made me 
realise that complexity is not always the 
secret of a truly addictive game and to illu¬ 
strate this I include Pacmania from Mr 
Chip Software. Pacman was one of the few 
arcade games to transcend the 
boundaries of the amusement arcade and 
capture public interest. The game is not 
very complex and even a satisfactory Basic 
game can be written or copied from a 
magazine. The added speed of machine 
code allows many more complications to 
be added and the animation is a lot 
smoother. Mr Chip has taken full advan¬ 
tage of these benefits to create a game 
which is recognisably the same as the 
arcade game, but different enough to give 
it added excitement. 

Pacmania's hero is the familiar 
gobbling disc who is directed around a 
selection of eight mazes eating up all the 
dots that litter every passageway. Ghosts 
emanate from the centre of the maze and 
set off in hot pursuit of your little 
muncher. In most versions of this game 
that I have seen the ghosts quite often 
wander about aimlessly until they come 
within sight of Pacman, but not so in 
Pacmania. The ghosts in this game go 
straight for the jugular running like crazy 
after your slower moving little man. Relief 
from this relentless pursuit can only be 
gained by either using the hyper-maze 
ports or by eating power pills. 

Hypersports are a bit of a gamble 
because you can never be sure where you 
will reappear after using them. Assuming 
you don't end up on top of another ghost, 
it is an effective way of escaping a hot 
pursuit but the power pills are more pre¬ 
dictable because they mean that the 
ghosts become vulnerable for a while. 
This allows Pacman to gain more points by 
eating the ghosts or a safe period to eat 
the pills without any interference. The 
speed of the action increases as you work 
your way through each level of eight 







































mazes, creating a game which can never 
be mastered fully and should hold the 
interest for quite some time. 

Cyborg on the Budgie budget priced 
label, from the Alligata pool of com¬ 
panies, is a simple game in programming 
terms but almost impossible to play unless 
you are the persevering type. Only ardent 
shoot 'em up fanatics should consider 
buying this one because it makes Pacman 
look like a senior citizen's picnic. 

The rules are simple: blast all the 
moving aliens and save the diminutive 
Cyborgs before the enemy kills them. As 
always the reality is not so simple. In fact it 
took several attempts to start the first 
screen; every time my ship appeared an 
alien would collide with it and zap me 
back to the title screen minus another life. 
Eventually I managed to hang on long 
enough to survive and worry about using 
smart bombs. The instructions state that 
clearing the screen in one fell swoop is 
essential to your survival. What they don't 


tell you is hdw to detonate a smart bomb 
to achieve this but I found the space bar 
had the desired effect. 

What happens is this, your ship 
appears and then a random number of 
aliens appear all over the screen and 
immediately home in on you. Praying as 
you grasp the fire button, you blast wildly 
and try to wipe them all out before 
another group appears. This goes on until 
you clear the first wave and then the next 
onslaught begins. Occasionally, several 
Cyborgs appear and you must collect as 
many as possible, avoiding all of the 
assorted enemy craft. Not much to the 
game really but it's maddeningly 
addictive. 

Another game from Alligata should 
satisfy any platform game devotees with 
its 20 screens to puzzle over. Forward 
planning and exceptional hand to eye co¬ 
ordination are all that is required to 



complete Blagger. 

Little by little, Roger the Dodger must 
learn the secrets of each room as he 
collects the golden keys which unlock the 
safes. Banks, shops and houses, nothing 
can stop a master thief but it could be a 
long apprenticeship. 

For the earthbound warrior there is US 
Gold's Beach head. The limited memory 
does not allow for all of the screens 
contained in the C64 version but you do 
get the aircraft attack, battleship bom¬ 
bardment and the final fortress. Despite 
the dubious claim to 'amazing sound' 
emblazoned on the cassette in bold 
capitals, the game displays something of 
what can be done with the C-16's 
graphics. 

In glorious 3D graphics, your ship must 
bring down the enemy planes which zero 
in from the horizon and then bring the big 
guns to bear on the fleet of warships 
which block your way. In both cases it is 
essential to gauge the correct inclination 
for the guns to hit each target before they 
land enough shots to finish your ships off. 

The final battle brings you in conflict 
with the enemy's largest and most 
accurate cannon. There are 10 targets on 
the fortress beneath the cannon and each 
target must be hit when it turns white. 
When all have been destroyed the large 
cannon begins to rotate towards your ship 
and you must score a direct hit on the 
weapon before it fires because it never 
misses. One hit destroys another of your 
ships so speed and accuracy is of the 
essence to succeed. This game lacks the 
addictive qualities of the others 
mentioned so far but the quality of the 
graphic displays is so cleverly achieved 
that it deserves a place in any C-16 
collection. 

Sports fanatics are also catered for with 
the C-16. Ocean has converted Daley 
Thompson's Star Events for the joystick 
waggling armchair athletes. The game 
comes in two parts, side one contains four 
track events and side two has three field 
competitions. The track events are the 
most frantic, partly because they last 
longer than the field events and therefore 
require a degree of stamina for success. 
The events comprise of the 100 metres, 
110 metres hurdles, the gruelling 400 
metres, with the 200 metres hurdles 
following close on its heels. The animated 
graphics are also cleverly done but this is 
not the sort of game where you spend 
your time admiring the scenery! Provision 
has not been made to carry your results 
through to the eventson side two which is 
a pity. On my tape this side wouldn't load 
but I'll accept Ocean's word that the long 
jump, shot-put and javelin events are just 
as enjoyably challenging. 

For sophistication I preferred 
Imagine's World Series Baseball. Not only 
do you get a 3D image of the diamond but 
there is also a giant video screen in the 
background which shows a close up view 
of the action. 
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Control is complex with all of the 
joystick positions having a bearing on 
various nuances of the gameplay. The 
animation is outstanding and with a little 
practice any novice can be hitting home 
runs, stealing bases and pitching fast balls 
with the best of them. Perhaps after 
learning the basics by playing this game, 
baseball could challenge American 
Football as a new spectator sport in this 
country. 

So far none of these games has been 
particularly demanding on the old grey 
matter. Rushing in to fill this gap is an 
adventure game from Bug Byte. 

Although Twin Kingdom Valley has 
been available for the C64 for quite some 
time now, this C-16 version is pretty new. 

The game has been condensed by 
removing the graphics and some of the 
less important locations of the original. 


I've always felt that the graphics in an 
adventure limit a player's imagination 
(though I admit that this criticism is often 
cited in defence of radio drama over 
television!), so I'd rather play a complex 
text adventure than a limited multi-image 
game. 

A nice touch is that the arrow and 
function keys are fully utilised to reduce 
the amount of typing necessary. The 
vocabulary is a little limited, action 
commands being selected from a list of 33 
words. Not bad considering. 

The idea is to wander about the Valley 
amassing as much treasure as possible. 
The pathways and caverns are patrolled 
by a variety of creatures who may turn out 
to be good or evil. As in life, the only way 
you can divide the wolves from the> sheep 


is to cautiously try to befriend everyone 
you meet. Unlike life, if you die you can 
always try again. 

There is no SAVE facility which means 
that you must start again each time you 
begin a session. This is a definite irritation 
but you can't have everything. 

For me the ultimate brain stretcher is 
chess and my selection here would be 
Audiogenic's Grand Master. Playing 
against the computer is possible at a wide 
range of skill levels from novice to Grand 
Master. 

The board is shown in plan view only 
and you can get the computer to suggest a 
move if you get really stuck. You can even 
leave the computer to play itself if you 
prefer but there isn't a two player option. 
This is true of most chess simulations 
based on the acceptable argument that 
the two player game is best played on a 
real board. 

If the publicity blurb is to be believed. 
Grand Master claims to be the best chess 
game around. Whether you believe this 
or not is immaterial to me, whatever the 
truth my brain is well and truly taxed by 
this game. Well worth checking out. 

The final game in this round up is by far 
the most impressive game I have seen on 
the C-16. ACE is a flight simulator (Air 
Combat Emulator) with stunningly fast¬ 
acting graphics. 

As a fighter pilot, you find yourself 
already zipping through the ether at the 
beginning of the simulation. The control 
panel has all the necessary indicators to 
give you a fair chance to stay in the air 
and the radar displays the enemies' 
positions. 

The aim is to seek out and destroy the 
enemy planes using the radar at first 
followed by visual tracking through the 
cockpit window. Trying to keep a plane in 
your sights as he dodges and fires at you is 
not very easy to do and low altitude aero¬ 
batics must only be indulged in by 
experts. 

Full control over the jet is possible; 
climbing, diving, rolling and looping are 
all catered for and keeping track of the 
jet's orientation can be extremely difficult 
in the heat of battle. No collection can be 
considered complete without ACE. 

It's not often tha,t we have good news 
for Plus/4 owner's but Cascade have just 
brought out a specially expanded and 
improved version of ACE for these 
machines (reviewed in this issue of Your 
Commodore.). Buy it, it's money well 
spent. 

Well that ends this little round up, 
next month I'll be looking at more serious 
applications software for the C-16. In the 
meantime why not drop me a line at the 
Your Commodore office telling me about 
you particular favourite game on the 
good old C-16. If enough people disagree 
with my selection I'll give your games a 
whizz and see if I agree. You can reach me 
care of Your Commodore, 1 Golden 
Square, London W1R 3AB. 
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YOUR COMMODORE 


Lineage: 40p per word. 

(46p incl. VAT). 

Semi display: £9.00 per single column centimetre (plus 
VAT). Ring for information on series bookings/discounts 

All advertisements in this section must be prepaid. 

Advertisements are accepted subject to the terms and conditions 
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01-437 0699 

EXT. 291 

Send your requirements to: 
STUART TAYLOR 
ASP LTD, 1 GOLDEN SQUARE, 
LONDON W1 


SOFTWARE 


BANKER 64 

If you are fed up not being able to keep track of your bank account this program 
may be just what you are looking for. Simple to use as it is menu driven it will hold 
full details of Credits, Debits, Standing orders and Direct Debits and will auto¬ 
matically place them in date order. It will give you statements to screen or printer 
including the 1520 plotter printer. Records can be stored on both disk and tape for 
complete back-up. Entry to any account is by name and Security code which can 
be changed as necessary. This m/c program is very good value at £6.25 disk, £4.00 
tape. 

RAMFILE 

Keep track of your Software, Records, Stamp Collection, Addresses etc. with this 
easy to use menu driven filling system. Entry titles are user defineable. Powerful 
options include search and amend routines. Print routines allows printing of entry 
title, selected entry or complete file to any printer including the 1520 plotter. Files 
can be stored on both disk and tape. 

This m/c program is very good value at £6.25 disk, £4.00 tape. 

Special Offer — Both programs £10.Disk Both programs £7.00 Tape 
All prices include VAT P&P Cheques & P.O. to 

RJP ELECTRONICS 

27 Denham Way, Camber, Rye, East Sussex TN31 7XP Tel: (0797) 225549 


CLAIRES COMPUTERS 


TOP Software at LOWEST Prices. 
Order two titles and you will receive 
a Top Class game FREE 



TAPE 

DISK 

Fight Night 

£7.50 

£10.50 

Bounder 

£6.95 


Revs 

£9.95 

£12.95 

The Eidolon 

£7.50 

£10.99 

Rambo 

£7.50 


Commando 

£7.50 


Yie Ar Kung Fu 

£6.50 


They Sold A Million 

£7.50 

£10.50 

Desert Fox 

£7.50 

£10.50 

Winter Games 

£7.50 

£10.99 

Little Computer People£7.50 

£10.50 

Korinis Rift 

£7.50 

£10.50 


Quick Shot II Joysticks Only £6.50 
This is only a selection from our stock 
Send now for latest list. 

Send Cheque’s P/O to 

Claires Computers, 16 Treganoon Rd, 
Mount Ambrose, Redruth, Cornwall, 
TR151QZ 

Tel 0209 211930 for your software needs 


SOCCER MANAGER — Manage your 
own team, 4 divisions, F.A. Cup, 
transfers tactics etc. 

RACENIGHT — Run your own 
racenight, up to 10 players. Exciting 
horse racing game. 

SOCCER QUIZ — Test your soccer 
knowledge, hundreds of questions. 
Any one for £3.99, 2 for £6.99, 3 for £8.50 
T. PALMER, 59, Old Park Road, 
Sheffield 8. Tel: 0742 749498. 


ALPHASOFT 

CBM64 Software - 25% Reductions 


Kung-Fu Master 

£7.45 

Desert Fox £7.45 
Spy Vs Spy 11 £7.45 
The Eidolon £7.45 
Merlenary £7.45 


Comic Bakery 

£6.90 

Yie Ar Kung Fu 

£6.90 

Uridium £6.90 
Ball Blazer £7.50 
Bounder £7.45 


AND MANY MORE! 

Cheque/P.O. to ALPHASOFT 
115 Parsonage Road, Withington, 
Manchester M20 9WZ 

(List sent with order, P&P included) 


EDUCATIONAL 

SOFTWARE 


FRENCH REVISION 

“La Conjugaison” 

30 Regular Verbs. 17 Tenses for 
C.S.E., ‘O’, ‘A’ Level. As used in 
schools. 

' Commodore 64 Disk £13.95 + 50p p&P- 
' ACCESS & CHEQUES WELCOME 
Enquiries & Orders to: 

MEDSTAT LTD, City House, 

Maid Marion Way, Nottingham NG1 6BH 
Tel: 0602 411120 


SOFTWARE GAMES 


DERBY DAY - Cl 6 Can you pick a 
winner in this Horse-Racing Spec¬ 
tacular? On Screen Action, visual 
form guide. Over 50 horses, 
thousands of race combinations. 
Realistic betting from different 
meetings. Plus many more 
features. Send £5.75. Cheque/PO 
to BLOOMFIELD SOFTWARE,/ 
P.O. Box 69, Blackpool FY2 9EX 


For details of 
advertising in 
Your Commodore 
Phone 01-437-0699 


QUIZ GAMES! 

ON CASSETTE FOR C64 

BLOCKBREAKER — £4.45 — a quick 
thinking questions game. Win money, 
prizes and your opponent. 

Extra questions available £2.99 
TIMES UP — £3.99 — Good with words? 
then you’ll enjoy this one! Highest score 
challenges new opponent. 

Add 50p for p&p. Cheques/P.O. to: 

GAMES MAKER 
92, Robin Hood Lane, Hall 
Green, Birmingham B28 OJX 
Tel: 021 745 3896 


KNOCKDOWN PRICES 

on 

PLUS 4/Cl 6 SOFTWARE 

with over 

125 TITLES TO CHOOSE FROM 
DISCOUNTS FROM 10% - 50% 
INCLUDING MANY OF THE LATEST TITLES 
TO RECEIVE YOUR FREE LIST 
SEND (A2) SAE TO:— 

Venturegate Ltd (C16/PLUS4 Software List) 

17 Harold Road, Leeds LS6 1PR, W. Yorkshire, England. 



Now you can use your computer to help you learn or 
developyourskillson theguitar with GUITAR STUDIO, 
a range of essential software for guitarists. 

* Guitar Studio 1 - a tutor for beginners with or without 
a teacher. Creating a more musical environment 
encourages a more enjoyable and musical approach to 
learning while progressing at your own speed. 
Excellent for the guitarist who wishes to learn to read 
music. 

* Guitar Studio 2 - a chord dictionary with utilities. 500 
chords, practice routines, melody input from 
manuscript or through the on-screen fretboard, 
develop your own chord sequences (even your own 
chords) through a simple programming facility. Play 
back with a wide choice of preset sounds. Full editing 
and filing facility. 

* Guitar Studio 3 - music theory for guitarists. Includes 
principles of notation, intervals, chord structures as 
applied to the guitar, scales, keys, etc. Tests are 
included enabling the user to monitor his/her progress. 
TEACHERS - send for details if you want to interest 
your pupils in any of the above. 

Price each - TAPE £9.95, DISK £11.95 
Available through your nearest software dealer or 
direct from Micro Music. Trade enquiries welcome. 



MICRO MUSIC 
software for music education 
St. Michael’s Chambers 
Spurriergate 
York Y01 TQR 
(Tel: (0904) 647588 
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REPAIRS 

I 

SOFTWARE 


TRIDENT ENTERPRISES 
LTD 


Commodore 64 — £15. Vic 20 
— £12.50, Spectrum — 
£10.50, QL — £30, 1541 Disk 
Drives — £20, and all Com¬ 
modore systems. Send faulty 
machine with note describing 
fault to: 

UNIT 7, WENTWORTH INDUSTRIAL 
COURT, GOODWIN ROAD, BRITWELL, 
SLOUGH TEL: 0753 21391 

Overseas enquiries welcome. 

(Above prices are exclusive of 
parts and VAT). 


COMMODORE REPAIRS 


Commodore repairs by Commodore 
approved engineers. Repair prices: 
Vic 20 modulator £8.05, Vic 20 £15.00, 
CBM 64 from £20.00, C2N from £9.00, 1541 
from £20.00, C64 psu £13.50, Spectrum 
£16.50, Dragon £32.00, Electrons, Atari. 

For more information SAE or telephone: 

G.C. BUNCE & SON, 


36 Burlington Road, Burnham, 
Bucks SL1 7BQ. 

Tel: (06286) 61696. 

9am-6pm Mon-Fri. 


Yh P Iff fff fff* 1 * g 

I EXPRESS COMMODORE 
REPAIRSl 
WHY PAY HIGH 
FIXED' PRICES 

I FOR PROFESSIONALISM - “Of all the 
'repair companies 'Sinclair User' spoke 
to. MANCOMP seemed the MOST 
PROFESSIONAL when it came to advice 
and a helpful attitude" AUG 85. 



WHY DELAY - OUR ESTIMATES ARE 
FREE AND WITHOUT OBLIGATION. IF 
YOU DO NOT LIKE OUR ESTIMATE 
WE WILL RETURN THE COMPUTER 
AND REFUND THE POSTAGE 
INCURRED! 


MANCOMP ltd 
(Dept YC5) 

Printworks Lane. Levenshulme, 
Manchester M19 3JP 
OPEN MON - SAT 9am to 7pm 
in i i mnn'innni^M 


COMPUTER REPAIRS 
IN LONDON! 

* Commodore, Spectrum, BBC, 
Atari, Amstrad etc. 

* Low cost repairs from £12.00 

* Collection & delivery optional 

Call Nigel: 961 2812 
ELECTRONIC SYSTEMS 
SERVICES 
P.O. Box 443, 
London NW10 8XB 


GENERAL 


When replying to 
classified advertisements 
readers are recommended 
to take steps to protect 
their interest before 
sending money. 


BUY OR SELL your unwanted 
software, books, and hardware. We 
put you directly in contact with 
each other in your area. Details: 
Second Hand Computer Sales 
Agency. 38, Bowling Alley Walks, 
Dorchester, Dorset. Tel (0305) 
64849 (24 hrs). 


SOUTH EAST KENT SOFTWARE 
Dept Y/C P.O. Box 152 Orpington, Kent 

We stock for Spectrum, Amstrad, Commo¬ 
dore. Send S.A.E. for full list and prices. 
Please state which. Postage/Packing 
ove rseas £1 .00 . 


COMMODORE 64 GAMES (TAPE) 


Commando 

RRP 

£9.95 

OUR PRICE 

£7.31 

Beach Head II 

£9.95 

£6.75 

Jeff Capes 

£8.95 

£6.65 

Summer Games II 

£9.95 

£6.71 

Transformers 

£8.95 

£6.65 

Winter Games 

£9.95 

£7.31 

Never Ending Story 

£9.95 

£6.51 

Quick Shot II Joystick £11.95 

£7.95 


And Many More Titles 
Prices Now Include Postage/Packing 

BUSINESS (DISK) 

RRP OUR PRICE 

Superscript £69.95 £52.95 

Superbase 64 £99.95 £68.00 

Home Accounts £24.95 £19.95 

EDUCATION 

English, Maths, German, French, History 
RRP £9.95 OUR PRICE £7.95 
Cheques/PO’s payable to: J. Ferguson. 
Please allow 21 days delivery 



/ /TCO ocoo/pc 
U i Ci\ I\U i iii\j 


~ VIDEO VAULT INTERNA TIONA L ■ 



10* REPAIR SERVICE 




COMMODORE 64 REPAIRED FOR ONLY £35.00 including P0ST& 

PACKING PARTS INSURANCE - NO HIDDEN EXTRASI^^b 


Are vou fed up waiting weeks for ^ While you W3itrep3ir service, 
your computebe replired ★ 3 month written gu3r a ntee on 311 

well wsit no longer. Werepsirsll repairs. 

Commodores same day. We 3lso ★ International Repair Company. We 
do Com 16, Vic 20,1541 Disk repair computers from all over the 

Drives, plus 4, or you can order world 


the Replacement Chips from our 

D.I.Y. section. 


★ Most Commodores repaired 
within 1 hr. 

★ All Micros insured for return journey. \ 

★ Over 8 years experience working with _ 

computers. rfpAnc 5 

★ All computers fully tested. / 


★ All computers sent Mail Order turned ★ Power supplies fully tested, 
around in 24 hrs. ★ RGB outputfully tested. 



D.I.Y. SECTION- 


if you know what chip has gone in your computer you 
can order the replacement l.C. from our range. 


6526 
6510 
6581 

901227-03 

901226-01 


23.00 

23.00 

23.00 

23.00 

23.00 


901225-01 
6569 

4164 RAMS 
Power Supply 
Units 


Telephone: Glossop (STD 04574) 66555/67761 
140 High St. West, Glossop, Derbyshire, England 


) Copyright Videovault Ltd. No. 151085 


All prices include V.A.T.;please ADD £1.50 to cover 
P & P and handling costs, insurance. 


29.00 

















































FOR HIRE 


HARDWARE 


MIDLAND COMPUTER 

LIBRARY 

ATTENTION COMMODORE USERS 

A SUBSIDIARY OF PLATINUM GOLD 


t OVER 7,000 different titles available for hire for the COMMODORE SPECTRUM 
ELECTRON, BBC, AMSTRAD, ATARI, and MSX computers. 

ARCADE, ADVENTURE, EDUCATIONAL and BUSINESS software too 
HIRE PRICES from only 75p INC. P&P. 

20% DISCOUNT off all purchase software. 

FREE CATALOGUES. * FREE HINTS AND TIPS. 

FAST RETURN OF POST SERVICE (if reserves are given). 

ALL GAMES manufactured ORIGINALS with full documentation 
OVER 6,000 satisfied members. * EUROPEAN members welcome 
FREE MEMBERSHIP LIMITED PERIOD ONLY 

Fully computerised system keeps track of your order. We pride ourselves in beinq the 
most professional Hire Library in the United Kingdom, with staff of 14 who knows what 
_the w ord service means. Backed by our own software c ompany and programmers. 

^ST MIDLAND COMPUTER UBRARY 

28 College Street, Worcester WR1 2LS. Tel: 0905 611072 

Please rush me my catalogue, enclosing £1 to cover costs. Refundable on joining. 

Name: . 


Address: 


VIC-20/CBM-64 
SOFTWARE HIRE 

Free Membership. Hundreds of Titles 
to choose from. Send S.A.E. for your 
Free Hire Kit: 

VSH (YM), PO BOX 65, NOTTINGHAM NG1 


SOFTWARE 

APPLICATIONS 


HOME ACCOUNTS 

Put your house in order! 
Probably home computing’s 
best use! Comprehensive 
coverage of bank accounts. 
Credit cards, HP in-built 
accuracy check. Records all 
transactions. Projects cash¬ 
flow for any period ahead. 
Available for Complete Com¬ 
modore Range. £8.45 or free 
details from: 

Discus Software 
Freepost 
Beach Approach 
Brixham TQ5 8BR 
Tel: 08045 55532 


Promote your 
service on these 
pages every 
month at a 
cost effective rate. 


FOR SALE 


MOONRAKER £7.95 

CBM64 Space Game features fast 
★Fly-into Rolling Radar Display 
*lntra Red Target Screen 
Altitude, Time, Score Indicators, 
Fuel/Purchase Option, Promotion. 
Send your name, address & PO/cheque to: 

J & J Gilmour Ltd., 

Dept YC486, 4 Copse Close, Llss, 
Hampshire GU33 7EW, England. 
Tel: 0730-893430. 


COMMODORE 64 cassette 
library. Hire latest games and 
educational software, only one 
price £1.50 per cassette 7 days 
hire. Details S.A.E. please: C.C.L., 
19 Darrell Way, Abingdon, OX14 
1 HQ. 


DISCS 


!!! FREE DISKS !!! 

For every 10 ordered we supply 11 

5y 4 " 

SS/DD £10.99 SS/QD £13.19 
DS/DD £13.19 DS/QD £15.39 

3y 2 " 

S/Side £27.49 D/Side £32.99 
All prices INCLUDE VAT 
Delivery is FREE 
All disks guaranteed for 12 months 
Cash with order please to 
HOLLBARN Ltd., Dept CM1, 
8 Alexander Road, Stotfold, 
Hitchin, Herts. SG5 4NA. 


HARDWARE 


Super Breaker 
Back-Up Board 

For the Commodore 64, CBM 128 and 
VIC-20. When a second CBM type cas¬ 
sette unit is connected to the board it 
will make security back-up copies of 
cassette based software, including 
Turbo/Fast Loaders, Basic and/or 
Machine Code and Data Files. No 
additional software is needed. Very 
User Friendly, the back-up copy is 
made on the second cassette while the 
original is loading on the first. Price at 
£8.95 Plus P&P. 

RESET CARTRIDGE for CBM 64. This 
cartridge will reset all, yes all, memory 
resident programs. Including all pro¬ 
grams where standard reset switches 
fail. Price £7.95 + P&P. 

P&P 55p UK (Europe add £1.00, else¬ 
where add £2.00). Send cheque/postal 
order, or a stamp for details to: 

C. Kent, 26 Northcape Walk, 
Corby, Northants. NN18 9DQ. 
For enquiries telephone (0536) 742622 


STAR SG-10C PRINTER 

ONLY £249 TO INCLUDE VAT & NEXT DAY 
DELIVERY BY SECURIC0R 

★ 100% compatible with your Commodore computer. 

★ 1 20cps draft mode. 

★ Tractor and friction feed standard. 

★ Near Letter Quality mode included. 

★ 192 graphic mode characters. 

★ 192 business mode characters. 

★ 90 italic characters. 

★ 90 NLQ characters. 

★ Normal 80 cpI. Condensed 136 cpI. 

★ Enlarged 2X, 3X & 4X. 

★ Supplied with interface/cable and mains plug READY TO GO. 

SEIKOSHA GP100 VC PRINTER £99 

STRONG COMPUTER SYSTEMS 

BRYNA COTTAGE, PENIEl, CARMARTHEN. DYFED SA32 7DJ 
- TEL: (0267) 231246 FOR ASSISTANCE!!!_ 


C64 


★ BACK-UP-SYSTEMS FOR CBM-64 & VIC-20 ★ 

The ba CK-UP-BOARD Mk. 1 is the fastest, and easiest way to back up your tape 
programs. With this board you can connect a second CBM cassette deck to vour 
computer Y °u can copy a program on the second deck while the original loads from 

rinnn St ‘ Y °D» C D n back up al1 fast loaders - data files, etc. BACK-UP-BOARD Mk. 1 
x.iu.uu inc. P&P. 

BACK-UP-BOARD Mk. 2. This new version of our famous BACK-UP-BOARD is now 
proving so popular it is outselling our original Mk. 1. This new board now works two 
ways. Switched to ‘NORMAL’ it operates as the Mk. 1. Switched to ‘GENERATE’ ‘64’ 
owners can use our special transfer software to regenerate a copy of a proqram on the 

fhfn ?h deck as o th J; first ' This method can produce a better quality copy 
than the original. BACK-UP-BOARD Mk. 2 & Software £14.50 inc. P&P. Conversion 

?5 r cn C ®' F ? e ^ urn yo y r Mk 1 Board . if purchased from us, to be modified to Mk 2 for 
£4.50 including software & P&P. 

AZIMUTH HEAD ALIGNMENT TAPE by INTERCEPTOR for ‘64’. Use this test tape 
with your 64 to adjust the heads of your decks to make a perfectly matched pair Full 
instructions and screwdriver supplied. £8.50 inc. P&P. 

ROM SWITCH/RESET BOARD. Fit this board in the expansion port of your ‘64’ and 
you can reset ALL programs. Resets programs that a standard reset switch can’t. A 
socket for a 2764 8K eprom is also fitted. Full instructions supplied. £8.95 inc. P&P. 
Please send SAE for more details of the above products. Send your cheque/PO to- 

TURBOTRONIC 

46 Ripon St., Parkinson Lane, Halifax, West Yorkshire HX1 3UG 
Tel: (0422) 52020 

_(Europe add 50p outside Europe add £1.50) 


BOOKS AND 
PUBLICATIONS 



We use only 
10% of our 
mental 
potentials 

Einstein 

These are the words of Albert Einstein, 
the greatest physicist of recent times. 

L. Ron Hubbard’s discoveries in the 
field of the mind prove today that Einstein 
was right. 

In his book “DIANETICS: The Modern 
Science of Mental Health” L. Ron Hub¬ 
bard takes one more giant step in this 
direction. 

He reveals how anyone can use his dis¬ 
coveries to isolate the exact barriers that 
have so far prevented people from using 
their mental potentials to the full. 

More and more people from all walks 
of life including technicians, artists, GPs, 
scientists, workers and managers alike 
use Dianetics technology today. 

The many written reports on their suc¬ 
cess are the best proof of the quality of 
this book. 

Find our for yourself. Order your copy 
of this remarkable book today. 

Price £3.95 paperback £17.50 hard¬ 
back. Make cheques and POs payable to 
S.H.F. Send to Church of Scientology 
Saint Hill Foundation, FREEPOST (YC 5)< 
East Grinstead, Sussex RH19 4ZA (no 
stamp required). 


For advertising 
details phone 
Stuart Taylor 
on 01-437-0699 


EPROMS 


PROM-64 

EPROM programmer for 8K, 16K, 
ZIF socket, Vpp generator & 
software on tape £34.75 

64-CARTridge, 2 x 8K £5.95 
DEMO EPROM 8K £4.95 

DHOBI-2 EPROM eraser £22.95 
UK + 15% VAT 
Cambridge Microelectronics 
One Milton Road, Cambridge 
CB41UY 

Tel: (0223) 314814 Tlx: 81574 


SPORT 


Horse form CBM 64/128 
graphics/sound, printer/screen 
output, save-load race files, easy data 
entry. For the more discerning flat 
racing man. Horse form gives 
winners. £7.95 cassette. 
Cheque/PO to: 

SEESAW SOFTWARE, 

Box No. 212, YC Argus Specialist 
Publications, No. 1, Golden Square, 
London W1R 3AB. 


FOR SALE 


GADGET 64 £6.95 

This 100% machine code CBM64 
cassette utility offers: Append, Delete, 
Renumber (Including Goto, Gosub, etc.) 
Satisfyingly simple to use. Send your 
Name, Address & PO or Cheque for 
£6.95 (P&P Free) to 

J & J Gilmour Ltd., 

Dept YC486, 4 Copse Close, Llss, 
Hampshire GU33 7EW, England. 
Tel: 0730-893430. 















































SOFTWARE 


FOR HIRE 


Title 

C16/PLUS 4 SOFTWARE 

RRP OUR Title 

RRP OUR 

Commando. 

..7.95 

6.75 

Beach Head . 

...7.95 6.75 

Games Designer. 

A.C.E. (C-16). 

..9.95 

8.50 

Defence 16. 

..7.95 6.75 

..9.95 

8.50 

Dark Tower . 

..5.95 4.95 

A.C.E. (Plus 4) . 

10.95 

9.40 

Wizard and Princess. 

..5.95 4.95 

Airwolf. 

. .6.95 

5.95 

Classic Adventure. 

.. 5.95 4.95 

Steve Davis Snooker. 

..7.95 

6.75 

Supergran. 

.9.95 8.50 

Daley Thompson Star Events. 

..6.95 

5.95 

Canoe Slalom. 

.. 6.95 5.95 

Jump Jet. 

..9.95 

8.50 

BUDGET SOFTWARE 


Games Pack 1 (15 games) .... 

..5.95 

4.95 

Mastertronic Titles (£1.99 each) 

Games Pack II (15 games) ... 

..5.95 

4.95 

Formula 1 Simulator 


World Cup Football. 

..6.95 

5.95 

Vegas Jackpot 


Gullwing Falcon. 

..6.95 

5.95 

Tutti Fruity 


The Boss. 

..6.95 

5.95 

BMX Racers 

Buy any 3 

Anirog Favourite Four. 

C-16 Classics. 

..7.95 

6.75 

Rockman 

for £5.25 

.. 9.95 

8.50 

Squirm 

C-16 Classics H . 

. .9.95 

8.50 

Spectipede 


Gremlins. 

..7.95 

6.75 

Big Mac 


Spiderman/Hulk Pack. 

. .7.95 

6.75 

Mr Puniverse 


Atlantis . 

Grand Master Chess (C-16) .. 

. .6.95 
..8.95 

5.95 

7.75 

Solar Titles (£2.99 each) 

Buy any 3 

Grandmaster Chess (Plus 4).. 

..8.95 

7.75 

Knock-Out 

Tom Thumb. 

. .6.95 

5.95 

Mission Mars 

for £7.95 

Sword of Destiny. 

..6.95 

5.95 

Suicide Run 

or 

Xargons Revenge. 

..6.95 

5.95 

Alien Attack 

Buy any 2 

World Series Baseball. 

..7.95 

6.75 

Cruncher 

for £5.45 

Robcon Head Alignment. 

..4.94 

4.50 

Quick Draw 


All prices include postage and packing in the U.K. C ‘ 16 J0YST,CK 

£9.95 

Payment with order by cheque or postal order please to: 

Please state 
which micro. 

9-830934 

JOTHAN SOFTWARE (Dept Y.C.1) 

65 Heol Gwys, Upper Cwmtwrch, Swansea SA9 2XQ. Tel: 063 


HIRE HIRE 

STAFFS COMPUTER LIBRARY 

CBM 64 OWNERS 

Join the friendly Library. We give you what you want. If a title 
is not on our list then we will get it, if it's still available. 
(Games only) 

# All the latest Titles 

• Full 7 Days Hire 
Low Hire Cost. From 75p 
Up to 4 Games per week 
All games original 
Lots of American Titles 
Low Hard and Software prices 
Membership ONLY £5.00 

Free m/c Monitor on joining 
Send your cheques/postal orders payable to: 

STAFF COMPUTERS 

The Newlands, Greensome Lane, Stafford 




YOUR COMMODORE CLASSIFIED ORDER FORM 


1. 

2 

3. 

4 

5 i 

6. 

7. 

8 

9 

10. 

11. 

12. 

13. 

14. 

15. 














SEND TO: STUART TAYLOR, ASP LTD 

1 GOLDEN SQUARE, LONDON W1R 


Please place my advert in YC for. .issues 

commencing as soon as possible. I am enclosing 

my cheque/P.O. for £.(made payable to 

A.S.P. LTD) (46p per word VAT INCLUSIVE.) 
Name. 

Address. 

Phone No. 

Signature.Date. 

1-11.1-1.11-1.1 INI. 




It’s easy to complain 
about advertisements. 
But which ones? 


Every week millions of advertisements appear in print, on posters or 
in the cinema. 

Most of them comply with the rules contained in the British Code of 
Advertising Practice. 

But some of them break the rules and warrant your complaints. 

If you’re not sure about which ones they are, however, drop us a line 
and well send you an abridged copy of the Advertising Code. 

Then, if an advertisement bothers you, you’ll be justified in 
bothering us. 


. in y 

V 


The Advertising Standards Authority. \ 

If an advertisement is wrong, were here to put it right. 

ASA Ltd, Dept 2 Brook House, Torrington Place, London WC1E 7HN 














































































£7.95 Cassette 
£10.95 Disc 


CBM 6 


f COMES OF AGE! 

Cl 6/PLUS 4 £5.95 Cassette 


■j /? Ifi 


Cl 6/PLUS 4 
£6.95 Cass. 


Cl6/PLUS 


COMING SOON IN THE 


TENNIS - CHESS - ICE HOCKEY 


TRADE ENQUIRIES 


MAIL ORDER 












































Choosing the right computer 
is a good start — but can you 
find the right software? 



a 

SUPERSOFT 


At SUPERSOFT we're very conscious of the 
fact that people who spend several hundred 
pounds on computer equipment are looking 
to do rather more than play Space Invaders. 

Financial planning is a rather grand name 
for something you've been doing all your life 
- making ends meet! Perhaps if Mr 
Micawber had used BUSICALC he would 
have been able to balance the books a little 
better. 

For home, club or small business use 
BUSICALC 1 should pay for its.elf in no time at 
all; for larger companies we recommend 
BUSICALC 3, one of the few really valuable 
programs that you can learn to use in a day. 

Although your Commodore 64 is a power¬ 
ful musical instrument you need to be a 
pretty good programmer to understand how 
it all works. Unless, of course, you buy MUSIC 
MASTER! 


INTERDICTOR PILOT is a space flight 
simulator. Nowadays simulators are widely 
used to train pilots and astronauts because - 
to be frank - it's a lot cheaper (and safer) 
than the real thing! 

Imagine, if you will, life in the 22nd 
century: space travel is commonplace, and 
on the outskirts of the galaxy the first war 
between civilizations is being fought. A short¬ 
age of trained pilots has prompted the Feder¬ 
ation to develop a computer simulation that 
allows raw recruits to gain experience with¬ 
out paying for their mistakes with their lives. 
With the aid of your Commodore 64 you too 
can learn to pilot the Interdictor Mk 3 craft. 
But be warned - this is no game! 


Other SUPERSOFT products include the 
MIKRO ASSEMBLER cartridge, the only 
assembler that's ideal for beginners yet pow¬ 
erful enough for the professional (most of 
our competitors use it!). The VICTREE cart¬ 
ridge adds dozens of commands to Basic 
including toolkit aids and disk commands; or 
on disk there's MASTER 64 f a really com¬ 
prehensive package for the keen prog¬ 
rammer. 


Of course, we do also publish games 
programs, and with classics like STIX, QUINX 
and KAMI-KAZE in our range we are one of 
the market leaders. But we most enjoy 
coming up with the sort of programs that are 
going to be in use for months and years, not 
hours and days - the sort of programs that 
make you glad that you bought a computer- 
and glad that you bought SUPERSOFT! 


To use MUSIC MASTER requires no prior 
musical knowledge, though in the hands of 
an experienced musician it will prove an 
invaluable tool. You don't need to know the 
first thing about programming either! MUSIC 
MASTER is the musical equivalent of a word 
processor, remembering the notes you play - 
and allowing you to replay and edit them as 
you wish. 



SUPERSOFT, Winchester House, Canning Road, 
Wealdstone, Harrow, Middlesex HA3 7SJ 
Telephone: 01-861 1166 


You won't find SUPERSOFT products on 
the shelves of your local supermarket. But 
most specialist shops stock titles from our 
extensive range (and are prepared to obtain 
other programs to order). However you can 
also buy direct by sending a cheque (pre-paid 
orders are post free!), by calling at our 
offices, or over the telephone using your 
ACCESS card. 


















